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ABSTRACT 


CAPS (Computer-Aided Prototyping System) is an integrated set of software tools 
that generate source programs directly from real-time requirements. CAPS users can 
specify the requirements of prototypes as augmented computational graphs using the 
graphics/text editor. The problem with the current version of CAPS is that most of the 
feasibility checks for the prototypes are currently enforced by the translator and the 
scheduler. Such an approach requires the engineers to go through the “edit, save file, then 
translate and schedule” cycle in order to find out if the control and timing constraints can 
be satisfied. 

The protot 5 q)ing process can be made much more efficient and user-friendly if these 
checks are enforced by the CAPS PSDL (Prototype System Description Language) SDE 
(syntax-directed editor), where users can detect and receive warnings as they enter the 
design. This thesis focuses on the properties that must exist between processes and their 
inter-connected data flows in order for a prototype to be correct. It further modifies the 
PSDL SDE so that parts of the prototype are captured, combined, and manipulated in a way 
that provides the semantic information needed to determine if these properties have been 
violated. 

The new editor has been applied to several prototype examples. The results showed 
that, by catching errors during the editing phase, the user saves time, is better able to stay 
focused on the design, and is subsequently more productive. 
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I. INTRODUCTION 


Cheaper, faster, more reliable hardware has helped to make software the dominant factor 
in today's computing needs. While sky- rocketing demand for software continues, the 
requirements get much more demanding; especially so for real-time systems with their timing 
restrictions. Scheduling feasibility is one of the most important and demanding aspects of 
ensuring that the requirements of a real-time system are met because success means not only 
being correct, but also on time. Correctness refers to the precision and accuracy which must be 
adhered to. Being on time refers to the response time required of mdividual operations. CAPS 
(Computer-Aided Prototyping System) is an ongoing software engineering project at the Naval 
Postgraduate School that is targeted primarily at real-time systems. This thesis focuses on some 
of the issues related to whether or not the design of a real-time prototype is feasible and 
addresses checking some of these feasibility constraints earlier in the prototype development 
cycle. It modifies the Syntax-Directed Editor (SDE), which is one of the tools within CAPS, so 
that errors can be caught while still in the design phase, thereby saving the developer valuable 
time, enabling more accuracy in the design, and subsequently contributing toward higher 
productivity. 

This chapter describes the current state of software development along with a partial 
justification for the need of supporting tools and prototyping. Chapter n gives a better 
description of CAPS, the tools it encompasses, and the steps required to create a prototype. 
Chapter El discusses the tool that is used to generate the SDE, the Synthesizer Generator. It 
summarizes the required specifications to creating an SDE. Chapter IV covers creating a short 
example prototype, some of the constraints that must hold for a real-time prototype to be 
schedulable, detailed changes that were required of the SDE to implement those constraints, and 
an example with the new editor. Chapter V summarizes with a conclusion and possible future 
enhancements. 

A. SOFTWARE AFFLICTION 

Most people who have had even a small amount of interaction with the development of 
software have probably heard of the term “software crisis”. Many will immediately begin to 
think of various problems that exist in the field which contribute to this ongoing situation. A 
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better term for this problem is “chronic affliction” [Ref. 1]. The word “crisis” tends to point to a 
single point in time where something dramatic happens, where “chronic” means recurring and 
“affliction” means anything causing pain or stress. 

There are many problems in the field of software engineering and most of them are 
recurring and sometimes very painful. Probably the biggest problem facing software 
development today is the insatiable appetite for software that our world has amassed; an appetite 
that is constantly growing. The backlog of demanded systems continues to grow in numbers 
while the systems themselves are becoming much more complex. 

Real-time systems are taking a bigger piece of this pie and among the most difficult to 
design right because of their restrictions on time. Many are critical in that failure can lead to 
great costs. History is already full of incidents caused by software failures such as the Bank of 
New York paying $5 million because of a software problem [Ref. 2] and the Patriot missile that 
missed a Scud missile because of a timing error and subsequently ended up in 28 Americans 
killed [Ref. 3]. Quality and user friendliness is expected in degrees rarely achieved to date. All 
this while many of the current projects are over budget, past due, and not meeting user 
expectations. Some projects are dropped after extensive amounts of resources have been 
invested. In fact, as many as 25% of the projects in large MIS organizations are never completed 
[Ref. 4]. All too often, cost estimates are only guesses because true requirements are simply not 
known. The bottom line is that the software engineering community must increase productivity 
dramatically to catch up, let alone keep up. 

Probably one of the single most critical areas in which software engineers must get better 
at is capturing requirements. Most of the time, software products don't satisfy what the user 
really intended. It may meet the requirements specified by the user, but if it doesn't meet the 
users needs, its a bust. This is the major cause of unsatisfied customers. 

Software engineers must get faster at putting out finished products. Too many times, 
developers fall behind and this is one of the biggest factors in cost over runs. One well 
documented fact is that errors get much more expensive in terms of time and money when 
discovered later in the development cycle. Making matters worse, requirements errors are not 
likely to be found until implementation. So then, it only stands to reason that the most expensive 
errors are the ones concerning missed, incorrectly, or inconsistently defined software 
requirements. 
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One of the best ways of ensuring that true requirements are captured, thereby enabling 
the developer to give more accurate time and cost estimates and at the same time maintain a 
much higher probability that the product will be good (as define by the user), on time, and on 
budget, is with a technique called prototyping. 

B. PROTOTYPING 

Prototyping is an excellent tool for determining exactly what is needed by the system to 
be developed. Its purpose is “to help customers understand and criticize proposed systems and to 
explore the new possibilities that computer solutions can bring to their problems in a timely and 
cost effective manner” [Ref. 5]. It is much like the architect who gets some guidance from the 
client, goes away to draft up preliminary designs, and then comes back to review what has been 
done. The architect knows that it may be all wrong; better to find out earlier when backtracking 
is still reasonably cheap than later when it is extremely expensive. Once the designer better 
understands what the requirements are, more meaningful estimates can be determined along 
with better cosi/benefit driven feasibility studies. 

The best situation for prototyping is when there is uncertainty about what is required. 
This could be uncertainty as to what exactly the customer desires, uncertainty about how to 
make things happen, or both. In the former case, a client may not know exactly what it is they 
want, certainly making it difficult for the developer. They may know what is needed but can't 
describe it. Many times the client speaks in a whole different vocabulary because of her 
expertise. They may actually or mistakenly have described exactly what is needed and end up 
with a product that is totally unusable. The English language is very ambiguous at best, leaving 
lots of room for error. 

The second scenario where a software designer is unsure how to make things happen can 
be a very difficult problem. The designer may not be sure of how to deliver what is wanted in 
terms of functionality or performance. Understand data and control flow, functional processing, 
or general understanding of the behavior of the system can be greatly enhanced through 
prototyping. This situation exists when venturing into unfamiliar terrain and is almost always 
the case when dealing with real-time systems. The timing constraints imposed can be 
enormously complex. The client normally can't describe them while the analyst/designer has a 
tough time trying to determine them [Ref. 3]. Sometimes whole designs must be redone in order 
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for it to be feasible in terms of scheduling. Many times it is hard to determine if requirements 
have been met, further justifying the use of prototypes for validation purposes. 

While prototyping can be done merely to gather requirements (it is meant to be thrown 
away after requirements gathering is done), the focus is in terms of a development paradigm. 

That is the concept of prototyping in a evolutionary approach where the system goes through a 
continuous cycle of modification/demonstration/evaluation until it is right. An iterative approach 
that rapidly adjusts the behavior of the prototype based on feedback from the customer and 
designer. This allows incremental development vice a big bang approach. Most who have 
worked on a complex project will agree that it is easier to get it right by quickly and correctly 
doing a little at a time than by trying to do everything at once. The big bang approach gets even 
more unwieldy when the size dictates multiple designers. With each iteration, the customer and 
designer come to a more common understanding of what the customer really needs, regardless 
of preconceived notions by either party. CAPS endorses this evolutionary approach with 
software tools that support the designer in the task of building and executing prototypes. 

One aspect of this process that makes it better than more traditional methods such as the 
waterfall method is it does not expect to be able to freeze the requirements. Realistically, 
requirements do not stabilize until the user gets some exposure to the system (especially with 
real-time systems). With most traditional methods, this means not having stable requirements 
until after implementation, thereby necessitating significant change during its maintenance 
phase. Changes that would not have been required had the system been right in the first place. 
With a prototyping approach, the user gets adequate exposure to the prototype to determine true 
requirements. And because it is an iterative process, and because the prototype is easier to 
modify than implemented code, the user will eventually be able to fine-tune tentative 
requirements into exactly what the system needs are. 

This process results in higher quality implementation because fewer initial errors get by. 
That in turn, lowers maintenance costs, which is the dominant expense in larger systems, 
because fewer implementation errors means fewer discovered mistakes to correct for during 
maintenance (many maintenance changes are really errors), not to mention the fights over whose 
fault and who pays (requirements mistake vs.implementation error). Also, when changes need to 
be made, the prototype (which is more simple than the production code) can be manipulated/ 
modified rather than the production code (which is more complex). Then when the required 
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changes (new requirements) are certain, the new implementation can occur. Much of the 
implementation may consist of old code but 1) it is a new clean implementation with clear, 
documented requirements (didn't do patchwork with old implementation) and 2) the changes are 
easier to achieve as the designer worked with a higher level abstraction. 

Because constraints from both the problem domain and the programming domain 
together drive the requirements of a proposed system, both the user with his knowledge of the 
problem domain and the designer with her knowledge of the program domain must work 
together extensively. Prototyping helps create a common ground where they can communicate 
effectively by demonstrating the behavior of the proposed system. The disagreements that arise 
quickly uncover areas that need further thought/clarification. 

Testing gets more mileage with the iterative approach. Most organizations do the bulk of 
their testing towards the end of the software development cycle. This means that when funds 
and time allocated for the development of the system are at the end, the organization is testing to 
see if the product answers the mail. The question that immediately comes to mind is, “what if it 
doesn't?”. The answer is complex. Fixes can be minor or significant depending on how far off 
the mark the developer is and how much money, time, and patience the customer has. Most 
testing authorities will state that because testing is one of the most effective tools in developing 
correct software, it should be moved further up in the software development cycle. By 
introducing a prototyping methodology that has validation and verification built into the cycle, 
this problem can be avoided. Then, when final testing is done, it does not have to be as 
significant and there are no surprises. This further means that the first implementation will more 
reflect user needs. That, in tern, means that less modifications must be made later in the 
maintenance/evolution of the system thereby saving time and money and keeping the system 
more stable and useful longer. 

In a study that looked at thirty-nine significant cases, it was determined that “rapid 
prototyping is indeed appropriate for large systems, and there seems to be more successful use 
of evolutionary prototyping than throwaway”, and further that “rapid prototyping has had a 
number of positive effects on both the software product and development process and that it can 
be used successfully in a variety of situations” [Ref. 6]. 
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Figure 1 below, which was borrowed from the CAPS Tutorial [Ref. 7], helps to show the 
Prototyping Process. The shaded areas depict the cycle that is executed in order to get the 
requirements right before implementation. 


Initial Goals 



Figure 1. The CAPS Prototyping Process. 
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II. CAPS 


Prototyping can dramatically increase the effectiveness of building and supporting 
software systems. “A high level language, a systematic prototyping method, and an integrated 
set of computer-aided prototyping tools are important for realizing the potential benefits of 
prototyping” [Ref. 8]. The language is PSDL (Prototyping System Description Language) and 
the integrated set of computer-aided prototyping tools is CAPS (Computer Aided Prototyping 
System). Useful for any type of application, CAPS is primarily developed for real-time system 
prototypes and consists of software engineering tools which are linked together by a common 
interface. These tools assist the designer in constructing and executing the protot 5 ^e [Ref. 8]. 

Several sources make reference to hard real-time systems which are those in which 
deadlines and requirements are guaranteed to be met under the worse-case situation. While some 
COTS (commercial off the shelf) products are available for real-time support, only CAPS 
generates code which satisfy the constraints of a hard real-time system [Ref. 3]. The CAPS 
development environment is displayed in Figure 2 below. 
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A. PSDL 


Most of the tools within CAPS operate on PSDL which is a prototyping language 
designed to enable a high level description of the system. PSDL is the means by which these 
tools communicate thereby assisting them in demonstrating the behavior of the prototype. It was 
designed to assist requirements analysis, feasibility studies, and in designing large embedded 
systems. Because this thesis involves modifications to the SDE, which is heavily intertwined 
with PSDL, more detail will be spent on PSDL and the PSDL Editor than other parts of CAPS. 

An underlying computational model was chosen to make inter-component 
communications explicit [Ref. 9]. It is formally represented as an augmented hypergraph, G, 
where G=(V,E,T(v),C(v)) [Ref. 10] 
where: 

V is a set of vertices (vertices represent operators), 

E is a set of edges (edges represent data streams), 

T(v) is the set of timing constraints for vertex v, and 
C(v) is the set of control constraints for vertex v. 

One of the major strengths of CAPS is its support of the prototyping methodology. 
Prototyping loses much of its appeal when modifications to the prototype are as intensive as 
modification to production code. Because of this, PSDL was designed to help make the required 
design modifications, common to the iterative approach, as painless as possible. 

Modularity, absolutely necessary to a good design, is supported by operators that 
explicitly communicate via data streams. A design is represented by a hierarchically structured 
network of these operators and data streams which are laid out as dataflow diagrams, enhanced 
with timing and control constraints. Dataflow diagrams convey a great deal of information about 
the internal structure of a process and yet are simple to read. Extending this diagramming 
technique with timing and control information made the technique much more powerful while 
maintaining its simplicity. 

PSDL supports reuse by capturing attributes that describe both the interface and the 
behavior of components. The interface attributes captured include generics, inputs, outputs, 
states, exceptions, and timing information, while the behavior attributes are keywords, and 
formal and informal descriptions. These attributes can be used to retrieve reusable components 
and organize the software base. 
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Requirements tracing is supported in PSDL by a construct that links the requirements to 
the part of the prototype that implements it [Ref. 8]. This is important so that as the system 
evolves, obsolete or changed requirements can quickly be identified in the implementation and 
modified as necessary. It further helps ensure that the system and its documentation stay up to 
date. 

PSDL further supports the requirements of a real-time system design: Control 
Constraints, which maintain preconditions on the firing of a module, filter a modules output, and/ 
or control timers, and Tuning Constraints, which implicitly determine when constrained 
operators will fire, are built into PSDL [Ref. 8]. They are discussed in more detail below. While 
PSDL was designed with a small set of constructs to make it very powerful, it was kept as 
simple as possible. 

1. Operators 

Operators can represent a function or state machine. The act of firing (executing) 
involves reading one data object from each input data stream and writing zero or one output to 
each output data stream. The operator represents a function if its output is solely dependent on 
the inputs to the operator; the same input will always produce the same ouqiut. If, on the other 
hand, its output depends on both inputs and values stored in its memory (internal state), it is a 
state machine. Operators can affect each other only by explicit data streams and can be further 
decomposed as design decisions and principles of abstraction dictate. 

a. Composite or Atomic 

Operators can be classified as composite or atomic. A composite operator is one 
that should be further decomposed. On the flip side, an atomic operator is one that should be 
decomposed no further. When analyzing an operator, the first question is, “Is there a component 
in the software base that will do this?”. If the answer is yes, the newly designated atomic 
operator is implemented with that component. If, on the other hand, the answer is no, the next 
question is, “Does it make sense to decompose this operator?”. If so, it is dubbed a composite 
operator and is decomposed. This will result in multiple operators that are each, in turn analyzed 
with the first question above. Of course, if further decomposition doesn’t make sense, the 
operator is atomic and an implementation must be created. 

As with all data flow diagrams, the lowest levels incorporate atomic operators. 

The goal is to eventually have a significant number of those implementations via components 


9 



from the software base, which have a high degree of reliability. 

b. Time-Critical or Non Time-Critical 

The next classification of an operator is whether it is time-critical or not. Built 
into the definition of a real-time system is the understanding that there will exist operators that 
have a constraint on how long they have to complete execution. In PSDL, this is called, its 
maximum execution time (MET) and denotes the maximum amount of CPU time the operator 
can use for execution. If an operator is assigned a MET, it is obviously time-critical. If not, it is 
simply an operator like the ones we have all seen in normal non real-time systems. Tune-critical 
operators can be broken down into two further categories. 

c. Periodic or Sporadic 

Again, only time-critical operators (has a MET) are further classified as to 
whether they are periodic or sporadic. A periodic operator has a regular interval in which it must 
fire and complete its execution. It is assigned a period (PER) which denotes the frequency in 
which the Scheduler makes a processor available for execution. Within that window, the 
operator must fire and complete execution. It is assigned a finish within (FW) time that denotes 
how long from the start of the window (PER) before execution must be completed. While the 
FW starts at the beginning of the PER, the MET doesn’t start until the operator fires which can 
be after the beginning of the PER. 

A sporadic operator does not necessarily have a regular interval in which it fires 
and is triggered by the arrival of new data. It is assigned a maximum response time (MRT), 
which is the maximum amount of time between the arrival of new data on the input data 
stream(s) (which triggers the operator) and the time when the last output is put on the output 
data streams. In addition, it is assigned a minimum calling period (MCP). The MCP is a lower 
bound on the delay between two subsequent arrivals of triggering data on the input. 

More discussion of both periodic and sporadic operators will ensue in chapter 
five when covering timing and control constraints. 

2. Streams 

Flows between operators can be data, control, or exception information. A stream is a 
communication link that connects two operators. The originator of the stream is called the 
producer operator while the user of the stream is called the consumer operator. A PSDL 
prototype is schedulable only if the graph is directed and contains no cycles. This is more 
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commonly referred to as a DAG (directed acyclic graph). When a cycle occurs, it indicates the 
presence of state information and must be dealt with. 

State streams are the means by which state information and hence cycles in the graph are 
dealt with. The state stream provides a way of declaring and initializing the state. During 
scheduling, it is actually removed from the graph. Figure 3 shows how streams are depicted in 
the PSDL Editor of CAPS. Data streams can be broken down into two other classifications. 

The consumer operator determines what type of stream it is. If the consumer operator has a 
trigger of “Triggered By All”, then the stream is a data flow stream (triggering is discussed 
below). In all other cases, including “Triggered By Some”, it is a sampled stream. 



Figure 3. Typical diagram of a stream. Data Streams look as pictured. 
State Streams have a bold arrowed line connecting the two operators. 


A data flow stream guarantees that no data is lost or duplicated [Ref. 10]. It is like a 
FIFO queue with a length of one. A consumer reads the data from its incoming data stream 
destructively so that it is no longer there. Underflow occurs if it attempts to read an empty 
stream. Overflow occurs if the producer operator tries to put new data to the stream before the 
consumer has read the old data. 

Sampled streams do not guarantee against lost or duplicated data. They are like a single 
memory variable that can be updated or read zero or more times. In addition, reads are not 
destructive. The only way a data value will go away is if the producer replaces it with another. 


11 




3. Timers 

Timers are an abstract state machine that act like a stopwatch [Ref. 10]. Used for things 
such as time-outs or refresh rates, they keep track of the amount of time that elapses between 
certain events. The four primitive operations are READ, START, STOP, and RESET. These are 
absolutely essential in a real-time system. 

4. Triggers 

Any operator can have a trigger and there are two types; BY ALL and BY SOME. For 
example, if an operator has “OPERATOR A TRIGGERED BY ALL X, Y”, it will fire when 
new data is on both X and Y data streams. X and Y may or may not be all of the input data 
streams. This guarantees the output is based on new input and can be used for synchronization 
purposes. If, on the other hand, it had “OPERATOR A TRIGGERED BY SOME X, Y”, it 
would fire when either data stream X or Y had new data on them. 

5. Conditionals 

There are two kinds of conditionals in PSDL which control the input and output of an 
operator. Conditionals can be combined with other constraints including triggers. While these 
could be implemented within the operator itself, this provides a quick, clear way of controlling 
the operator, assisting in the goal of making the prototype easier to modify. 

a. Conditional Execution 

Conditional execution, sometimes called execution guards, enforce a pre-condition 
before allowing the operator to fire. They entail the keyword “IF”. The following example 
shows that the operator will not fire until the condition Brake_On is true: “OPERATOR 
Suspend_Cruise_Control TRIGGERED IF Brake_On”. 

b. Conditional Output 

Conditional outputs, sometimes called output guards, determine whether or not data is 
written to the output data stream. It does not, however, have any control over the firing of the 
operator. The condition can depend on operator input/output and timer values. 

6. Exceptions 

PSDL has a built in abstract data type called exception. It can be used to create 
exceptions with a given name, detect whether a value is an exception, and determine whether a 
value is “normal” (a keyword in PSDL). As mentioned previously, they can be transmitted over 
data streams. 
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B. EDITORS 

There are several editors within CAPS providing a range of functionality. From basic 
editing of text files to building prototypes. These options/resources fall under the “Edit” pull¬ 
down menu. 

1. PSDL Editor 

A prototype is built with the PSDL Editor. It is composed of three parts: the Syntax 
Directed Editor, the Graph Viewer, and the Graphic Editor. They allow the designer to create the 
CAPS data flow diagram and PSDL program, assigning all timing and control constraints 
necessary to ensure the proper design of the prototype and its components. 

The Graphic Editor is used to build the data flow diagram and to specify some of the 
timing constraints. This provides a way to show the design stracture in a simple diagrammatic 
way. A great deal of information can be represented in somewhat simple diagrams and 
modification is quick and simple. 

The Syntax-Directed Editor (SDE) captures the information already entered into the 
Graphic Editor. Further, it allows for entering PSDL descriptions that are free of syntax errors 
by immediately notifying the user when they arise. It is this functionality that is extended by this 
thesis. The restrictions imposed by the constraints have an impact on whether the prototype is 
schedulable. Chapter IV covers these restrictions and some of this information has been 
incorporated in the SDE so that design errors related to timing and control constraints, in 
addition to syntax errors, are discovered while still in this early phase of design. Chapter HI 
contains an example on creating a prototype. 

If, while in SDE, the current position of the prototype pertains to the data flow diagram, 
the Graph Viewer displays that view of the data flow diagram. This helps keep the designer 
keyed into exactly what part of the prototype s/he is currently in and provides an outstanding 
overview of what process is currently under review. 

2. Text Editor 

The text editor can be one of several text editors depending on which one is chosen as the 
default. CAPS provides a convenient interface to the editor chosen. The user can select which 
editor is desired by choosing “CAPS Defaults”. The possibilities are vi, emacs, and the Verdix 
Ada Syntax Directed Editor. 
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3. Interface Editor 

Under the “Interface” option, CAPS provides a seamless interface to TAE+, a versatile 
tool for creating and manipulating dynamic window-based user interfaces. When done, skeleton 
code is generated, contributing to the goal of generating the prototype quickly and efficiently. 
TAE-i- allows for code to be generated into one file or into multiple files. While generating code 
under CAPS, the single file option is normally chosen (can be multiple files), and the code is 
placed in the prototype directory called: <prototype name>.RAW_TAE_INTERFACE.a. 

4. Requirements Editor 

While the goal is to have a tool that allows mapping from the requirements to the 
portions of the prototype that implement it, at current the “Requirements” option simply 
provides a window that lists the files with the extension “.req”. From there, any one file can be 
selected at which time the default editor is utilized to make necessary changes. 

5. Change Request Editor 

Like the requirements editor, the “Change Request” option brings up a list of files with a 
specified suffix; this time “cr”. Again, the user picks one and the default editor is summoned to 
edit that file. The hope is for this option to call a sophisticated change request tracking/editing 
tool. 

C. EXECUTION SUPPORT 

Rapidly constructing and updating a prototype depends on efficient execution support 
These options/resources fall under the “ExecSupport” pull-down menu. 

1. Translator 

The Translator “augments the implementations of the atomic operators and types with 
code realizing the data streams and activation conditions, resulting in a program in the 
underlying programming language that can be compiled and executed.” [Ref. 10]. Essentially, 
it generates code that binds the components extracted from the software base or custom built, 
depending on whether or not they are in the library. 

With Ada as the implementation language, it translates PSDL code into Ada wrapper 
code to realize the control constraints and instantiates Ada tasks for PSDL data streams. It 
expects a complete PSDL program as input, and creates several packages which make up, in 
part, the supervisor module of the prototype. 
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2. Scheduler 

Because real-time systems have constraints and finite resources that tend to introduce 
dependencies between the functions of the system that would otherwise be independent, small 
changes can significantly impact the design [Ref. 3]. And because scheduling is a major factor 
in correctly designing a real-time system, that step must be automated so that excessive amounts 
of time are not spent on scheduling with every small change to the design. 

The Scheduler generates two schedules; a high priority Static Schedule and a low priority 
Dynamic Schedule. The former allocates time slots for the time critical operators and if 
successful (the protot5^e is schedulable), all operators are guaranteed to meet their required 
timing constraints. If the prototype is not schedulable, the scheduler gives some diagnostic 
information tihat can help the designer see why. 

The latter invokes the non constrained operators during execution with the time slots not 
previously allocated. Translation is required before scheduling which is required before 
compilation. 

3. Compiler 

The Compiler option interfaces with the Sun Ada compiler. The prototype must have 
been successfully translated and scheduled prior to compilation. 

D. PROJECT CONTROL 

1. Evolution Control System 

As the size of a project gets bigger, the number of people working on that project grows. 
This means more time is spent on communications and less time is spent on analyzing/ 
designing, etc. Large projects also dictate a longer time until completion which means more 
turnover of personnel. Both of these problems can be minimized by ensuring that all 
documentation is stored and managed on-line. 

The Evolution Control System (ECS)is designed to give automated help to the difficult 
task of coordinating concurrent efforts of prototype design team(s) and managing the multiple 
design versions that can be produced. The prototype development data is stored in a design 
database (DDB) for persistent storage. 
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2. Merger 

The Merger helps to combine the product of two or more independently developed 
prototype changes thereby facilitating parallel enhancements and applying common changes to 
multiple versions. It warns of possible conflicts in the merging of two changes and when none 
exists, will create a PSDL program for the newly created prototype. 

E. SOFTWARE BASE 

Accessible through the “Databases” pull-down menu, the software base is currently 
designed to provide both “Browse” and “Query” capabilities for accessing a repository of 
reusable Ada and PSDL components. The user can browse by either types or operators and can 
query by keyword or PSDL specification. 

Standards on how to specify a reusable component are not yet in place. Because of this 
and the difficult nature of the task, tools for finding and adapting appropriate software 
components have yet to live up to expectations for strong code reuse. Currently based on 
parameters, work on this part of CAPS is ongoing to provide better underlying matching 
capabilities. 



ni. THE SYNTHESIZER GENERATOR 

Attribute Grammars have been used extensively in building compilers with their ability 
to accomplish translations and specification of static semantic analysis. Attribute Grammars 
have been used in porting code from legacy systems to newer languages. In general, they have 
been used in the development of many tools of modem day software engineering in an attempt 
to provide products that enhance quality and productivity. One of these tools is the Synthesizer 
Generator which is used to generate the Syntax-Directed Editor (SDE) within the PSDL Editor. 
A SDE, language-based editor, or smart editor, is an editor tailored to a specific language (in 
this case, PSDL), utilizing the grammar, structure, and static semantics of that language to assist 
the user in writing correct programs. 

A. BACKGROUND 

The Synthesizer Generator (SynGen) is a system for developing smart editors which use 
the knowledge of the language itself to achieve specialization. It automates the implementation 
of a desired language based editing environment. The knowledge of the language enables the 
editor, depending on how it is built, to provide feedback to the user concerning whether a 
program contains syntactic or semantic errors, where they are and recommendations on how to 
fix them. Inconsistencies can be identified, along with other t 5 q)es of analysis. It can be used for 
conversions, translations, and transformations. Editors produced can also control how the user 
proceeds in many various situations. It creates the language-specific editor from a specification 
of the language’s abstract syntax (abstract syntax rules), context-sensitive relationships 
(Attribute Rules), display format (Unparsing Rules), concrete input syntax (Concrete Rules), 
and transformation rales (Transformation Rules) and performs analysis, translation, and error 
reporting with the use of an immediate-computation paradigm [Ref. 13]. The rules identified in 
parenthesis will be covered individually in order to give a clear representation of the required 
specifications for a SDE. The immediate-computation paradigm simply means that all attributes 
are validated with each and every update of the program. 

Every object within the program, including the whole program itself, is represented as a 
consistently attributed derivation tree that goes through many transformations as the program is 
edited. The rales specified according to the language are used to check these attributes with 
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every program modification so that the integrity of the tree stays in tact. The language used to 
do the specifications is called the Synthesizer Specification Language (SSL), which is built upon 
a foundation of attribute grammar, a type definition facility, and the application domain of 
language-based editors [Ref. 13]. 

B. USES 

The editor created can be a hybrid of many different types of more specialized editors/ 
tools. Understanding this, those specialized editors and tools should discussed lightly. 

Structure editors view a program as a hierarchical composition of individual structures. 
This means that any component, including the whole program can be broken down into its 
components. These structures, also called templates are predefined formatted patterns 
representing the constructs in the language; a For Loop for example. Seeing a program this 
way leads to constructing it by inserting templates into placeholders. For example, if you wanted 
to insert a FOR LOOP inside an existing IF statement, you would highlight the placeholder 
inside of the IF statement and insert the FOR LOOP as displayed in Figure 4. If the FOR LOOP 
template was highlighted and deleted, the old placeholder would return. Obviously all template 
insertions are controlled and therefore ensure correct syntax. 


IF <exp> THEN 

<stmt>-^- 

ELSE 

<stmt> 

END IF; 


(~~n 


Highlighting this placeholder, with the 
mouse, for example, and then inserting 
any one of the possible statements 
(the FOR LOOP in this example). 


IF <exp> THEN 

FOR <identifier> IN <range> LOOP; 

<stmt> 

END LOOP 
ELSE 
<stmt> 

END IF: 



ClTi 


The statement has been replaced 
with the FOR LOOP template. 


Figure 4. Sample display of using templates. 


The typical text editor allows for character-oriented and line-oriented textual operations. 
This is the type of editor that most of us are used to and can be very quick when the user is very 
familiar with the syntax of the language. SynGen allows for both forms of text operations. 
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WYSIWYG editors allow for specialized viewing of the information that is stored. They 
can, as the name implies, show you what you have. They can also display information in a 
number of ways that can benefit the user; for example, some forms of display are more 
informative. By allowing for the control of what is displayed, SynGen can achieve variations of 
WYSIWYG. 

Spreadsheet applications are useful in that whenever an update is made in the 
application, changes are automatically made throughout. In SynGen, this aspect is captured with 
its immediate-computation paradigm previously mentioned. It enables the editor to complete the 
analysis, error message generation, and code generation with each incremental change. This is a 
very important aspect as many types of information can be stored and updated with each 
modification. Executable code can be output with each change, allowing for immediate 
feedback on changes made. This becomes a significant productivity enhancement when going 
through the “modify, run, evaluate” cycle of testing. Correctness and proofs can be supported/ 
maintained while editing if the rules are spelled out in the SSL. 

Incremental code generation was just mentioned above. But what about generating code 
based on knowledge of another language and a program in the language. This is a hot topic with 
projects that seek to re-engineer existing systems. There are many legacy systems that have litde- 
to-no documentation. This lack of documentation makes software engineers very reluctant to 
tackle these systems when it comes to re-writing in newer languages. SynGen can help 
significantly with this difficult task. 

C. BUILDING AN EDITOR 

The objective of this chapter is to familiarize the reader with the SynGen and how it 
works. For a full and in-depth analysis of the SynGen, see references [Ref. 13,15]. The ideal 
editor will normally have a combination of all the features discussed above making it a hybrid 
editor. Building an editor requires that five different specifications be made in SSL. As these 
specifications are outline, also covered will be terminology of the SynGen. The five 
specifications, mentioned earlier, are abstract syntax, context-sensitive relationships, display 
format, concrete input syntax, and transformation rules. Before doing that however, it might 
be more useful to first define a small language to help with explanations. Look at Figure 5, 
which is the small subset of PSDL used in designing the initial SDE for CAPS [Ref. 14]. This 
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subset should be small enough to provide a good example and large enough to get the reader a 
little accustomed to PSDL. The complete PSDL grammar is in Appendix A. 


psdl 

= {component} 
component 

= data_type I operator 
data_type 

= "type" id type_spec 
operator 

= "operator" id operator_spec 
type_spec 

= "specification" [type_decl] "end" 
operator_spec 

= "specification" (interface) "end" 
interface 

= attribute [reqmts_trace] 
attribute 

= input I output 
input 

= "input" type_decl 
output 

=: "output" type^decl 
reqmts_trace 

= "by requirements" id_list 
type_decl 

= id_list ":" id 
id_list 

= id {"," id) 
id 

= letter (alphanumeric) 
a1phanumeric 

= letter I digit 
letter 

= "a..z" I "A..Z" I 
digit 

= " 0 . . 9 " 


Figure 5. Subset of PSDL Grammar, 

This may look somewhat confusing at first, but is really rather simple after a few 
minutes worth of inspection. Brace brackets ({}) indicate zero or more iterations, while square 
brackets ([]) indicate zero or one iteration. The pipe (I) and a small circle with a plus sign in it 
(used in the next figure) indicates exclusive-or. One might read this as, a psdl prototype is 
composed of zero or more components, which are each either a data_type or an operator. A 
data_type is composed of the literal “type”, an id, and a type_spec, and so on. 

Figure 6 depicts the same information in a form that may be more useful. The only trae 
terminal nodes on this tree are the ones surrounded in quotes. Other nodes that are leafs are 
further expanded somewhere else in the tree. The thing to remember is that much like a 
compiler, SynGen will search the tree until it correctly reaches a terminal node ensuring that the 
pieces of the program match the syntactic constraints of the language. 
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1. Abstract Syntax Rules 

The abstract syntax is the core of the editor and is defined as a set of grammar rules. 
Anything constructed or modified within the editor will be represented by a derivation tree that 
is built based on the grammar. It maintains how legal tokens and productions are allowed. 
Figure 7 shows one of several possibilities for representing the abstract rules for the grammar 
previously defined. Not all of the productions were specified to keep its size more manageable. 


root prototype; 

/***** PARTIAL PSDL LEXEMES ****/ 

BOOLKW 

: <"BOOLEAN" > 

I <"boolean" >; 

TRUEKW 

: <"TRUE" > 

[ <"true" >; 

FALSEKW 

: <"FALSE" > 

I <"false" >; 

IDENTIFIER 

: IdentLex<[a-zA-Z][a-zA-Z_0-9]* >; 

/^**** PARTIAL PSDL PRODUCTIONS ****/ 

prototype 

: Prot(psdl_components); 
list psdl_components; 
psdl_components 
: PsdlNilO 

I PsdlPair(component psdl_components); 
component 

: ComponentNull{) 

! Data(id type_spec) 
i Op(id operator_spec); 
operator_spec 

: OpSpec(interface_iist); 

type_spec 

: TypeSpec(optional„type_declaration); 

optional list optional_interface; 
inter face__li St 

: InterFaceNil() 

! InterFaceList(interface interface_list); 
interface 

: InterfaceNull() 

1 Interface(attribute optional_requirements); 
attribute 

: Input(type_dec1) 

I Output(type_dec1); 
optional optional_requirements; 
opt iona l__r equir ement s 
: optReqmtsTraceNull() 

1 OptReqmtsTracePrompt() 

I OptReqmtsTrace(id_list}; 
type_decl 

: TypeDecl(id_list id); 

op tiona1 optiona1_type_dec1a ra tion; 
optional_type_declaration 
: OptTypeDeclNull() 

! OptT^eDecl (id_list id) ; 
list id_list; 
id_list 

: IdNilO 

I IdPair(id id_list); 
id 

: IdNullO 

i Id(IDENTIFIER); 


Figure 7. Abstract Syntax Declarations. 
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Before proceeding, some of SynGen’s terminology should be explored. These first three 
definitions are recursively defined and will make a beginner’s head hurt until s/he has gone 
through several examples. A phylum is a set of terms. A term is the result of applying a k-ary 
operator to k terms of the appropriate phyla (plural of phylum). A k-ary operator is a 
constmctor-function mapping k terms to a term [Ref. 15]. The phylum associated with a non¬ 
terminal is the set of derivation trees that can be derived from it. Those derivation trees (called 
terms) are derived by going through the productions identified by the operators. We will see an 
example of this shortly. Phylum declarations are either productions or lexemes. The legal 
production declarations allowed, which are described in the abstract syntax rules, take on a form 
something like: 

phylum-name : operator_name (phylumj^, phylum 2 ,..., phylumi^); 

where: 

phylum_name is the particular phylum this production applies to, 
operator_name is any legal identifier that refers to a particular production, and 
phylumj represents a non terminal of the grammar. 

The legal tokens allowed, defined by the lexeme declarations within the abstract syntax 
rules, take on a form such as: 

phylum-name : lexeme_name < regular_expression >; 

where: 

phylum_name is the particular phylum this lexeme belongs to, 
lexeme_name is used in the definition of the concrete input grammar, and 
regular_expression is the description of the token. 

A few more definitions are required at this point Each phylum contains a unique term 
called its completing term and placeholder term. While the same term can be both, there are 
differences between them that must be discussed. The completing term is used to construct the 
derivation tree’s default representation. Whenever there is an unexpanded occurrence of a 
phylum in the derivation tree, there will be an instance of the appropriate completing term. The 
placeholder term identifies where subterms can be inserted or swapped. This will become more 
apparent when the transformation and unparsing rules are covered.The first operator declared for 
a phylum is that phylum’s completing operator. The completing operator is used to build the 
completing term; it is always the first operator in the completing term. The rest of the 
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completing term depends on whether it is ordinary, a list, or optional. 

With ordinary phyla (not list nor optional), both completing and placeholder terms are 
created by applying the completing operator to the completing terms of its arguments. Nullary 
terms are stopping points and their parenthesis are optional. For example, the completing term 
for type_name is TypeName(IdNull). The completing operator of type_name is TypeName, and 
it has only one argument. The completing operator of its argument, id, is IdNull, which is a 
nullary operator. See Figure 8 below to show the components affected. 



If the phylum is of non-optional list phyla, the completing term and placeholder term are 
also equal and are built by applying its binary operator to the completing term of its left 
argument phyla and to the list’s nullary operator [Ref. 13], resulting in a singleton list. This 
makes more sense when it is realized that all list phyla must have two argument phyla, where 
the first is another phylum and the second is the list itself (all lists are right recursive). For 
example, the completing term for idjist is IdPair(IdNull, IdNil). The binary operator is 
“IdPair”, the completing term of its left argument is “IdNull”, and the list’s nullary operator is 
“IdNil”. A look back to Figure 7 will help follow this reasoning. 

Attempting a combination involves using both rules. For example, the completing term 
of type_decl is TypeDecl(IdPair(IdNull, IdNil), TypeName(IdNull)). Noting that type_decl is 
ordinary, you combine the completing operator, TypeDecl, to the completing terms of its 
arguments; id_list and type_name. Since their completing terms are already known (fi-om the 
last two paragraphs), it now just a matter of combining them. 

When dealing with optional phyla, the completing term and placeholder term are 
different. For optional, non-list phyla, the completing term is built from its first nullary operator 
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while the placeholder term is built from the first operator after the placeholder term. For 
example, the completing term of optional_requirements is OptReqmtsTraceNuU. The 
placeholder term is OptReqmtsTracePrompt. These two nullary terms are in the optional phyla 
because the first will result in nothing being displayed in the editor while the second will allow 
the editor to display a prompt. This is covered in the unparsing rules. 

With the last category, optional list phyla, the completing term is the nullary operator 
and the placeholder is the same as for the non-optional list phyla covered above. 

2. Attribute Rules 

So far, the underlying structure of the editor has been described. The next question that 
comes to mind is how aU of the syntactic and semantic checking /analysis is done. This involves 
various parts of the derivation tree knowing about and having some sort of an understanding of 
other parts of the tree. In other words, information must be passed up/down and back/forth 
within the derivation tree. It is accomplished with attributes and attribute equations. 

The attribute rules make up an attribute grammar, which is a context-free grammar 
(CFG) that is extended by the use of attributes which are attached to non-terminals and defined 
by attribute equations [Ref. 13]. There are several kinds of attributes available to SynGen. 
While all are covered in the references [Ref. 13,15], only three will be discussed here as they 
apply direcdy to the SDE within CAPS. 

The editor designer can use local attributes, which are associated with a particular 
production. They are declared with the reserved word, “local” and are declared with the 
production attribute equations. The format of a local attribute declaration is as follows. 

local attributetype attribute_ name; 

where: 

local is a keyword, 
attribute_type is any predefined type, 
attribute_name is any valid identifier. 

The attributes that are associated with phyla, instead of productions, are broken into two 
mutually exclusive (disjoint) sets: synthesized attributes and inherited attributes. 

Synthesized attributes are attributes that are built up. They are attributes whose values 
are propagated to the left in attribute equations and up the attributed tree. An example will be 
given in a moment. 
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Inherited attributes are attributes that are passed down. They are attributes whose values 
are propagated to the right in attribute equations and down the attributed tree. The attribute 
declaration format is as follows. 

a phylum {synthesized attribute_phylum attribute name; 

inherited attribute_phylum attribute_name;}; 

where: 

a_phylum is the phylum or phyla (comma separated) that will have the attribute, 
synthesized is the keyword to declare a synthesized attribute (syn is OK), 
inherited is the keyword to declare an inherited attribute (inh is OK), 
attribute_phylum is the attributes type and can be built-in or used defined, 
attribute_name is any valid identifier. 

It should also be mentioned that the two attributes can be in either order and can be in 
separate declarations if desired. 

Attribute equations, which are used to assign values to attributes and evaluate values of 
attributes, take on a slightly different form depending on if they are for synthesized or inherited 
attributes. The synthesized attribute equation and inherited attribute equation respectively, are as 
follows. 

phylum_name.attribute_naine = subordinate_phyluin_value; 
subordinate_phylum_vaIue = phylum_nanie.attribute_name; 


where: 

phylum_name is the phylum that owns the attribute, 
attribute_name is the attribute owned by phylum_name, 
subordinate_phylum_value is a little bit tricky. It can be any value consistent 
with the attribute’s type including another attribute, the same attribute from another phylum, or 
a function call, and is associated with a lower level of the attributed tree. 

In some abstract syntax declarations (a list for example), the phylum_name is mentioned 
more than once. Because of this, additional notation must be introduced. The phylum_name by 
itself implies its first occurrence. Another way to depict this is with $$. The second occurrence, 
would be indicated as phylum_name$2. Then, every subsequent occurrence gets the number 
after the $ symbol incremented by one. 
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As an example, review the abstract syntax presented in Figure 7 above and notice that a 
prototype is simply a list of components. Recall that all lists are binary and right recursive. A 
component is either a data_type denoted with the phylums id and type_spec, an operator with 
the phylums id and operator_spec, or null. The id simply identifies the name of that component, 
whether it be a type or operator. Obviously, we do not want two components to have the same 
name, regardless of whether they are types or operator. 

In the PSDL Editor, the graphic editor allows the designer to draw and name operators. 
This information is propagated to the prototype when exiting back to the SDE. That means the 
operators are already defined when you enter the SDE. It might be beneficial to notify the 
designer when trying to assign a new data_type with the same name as an existing operator. 
After the designer enters three operators (Opl, C)p2, OpS) in the graphic editor and returns to 
SDE, the attributed tree would look similar to Figure 9 (attributes are bold typed). 


prototype 


psdl_components 



Figure 9. Partial Derivation Tree after returning from Graphic Editor. 
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The information about operator names must be sent to where data_type names are 
declared. Another way of saying this is that operator id attributes must be synthesized and then 
inherited by the data_type. Currently, there are only three components, and all three are 
operators. When data_types are added, the list of psdl_components will grow containing both 
operators and data_types. 

The first thing that must be done is to collect up all the operator id’s. Because they exist 
at the id phylum, that is where we will put the synthesized attribute declaration. That attribute 
will be passed up to the component phylum so it too will need an id attribute. And because they 
will be collected up into a set at the psdl_component level and subsequently passed to the 
prototype level, we must define a structure to hold a set of id’s and declare attributes of that type 
at the psdl_component phylum and the prototype phylum. Of course the skeleton attribute 
grammar must be in place for this to be inserted into. It looks like the production portion of the 
abstract syntax declarations displayed earlier. See Figure 10 to understand what is required in 
collecting all operator id’s at the prototype phylum. All additions to the abstract syntax are in 
bold type. 
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prototype, psdl.components {syn id_set syn_op_id_setnjW Attribute declarations ) 
component {syn id syn_op_id; } ---^ 

prototype ^opy the id list from psdl_components 

: Prot {psdi_components) ; ^ protoype.syn_op_id_set 

$ $ * syn_op_id_set = psdl_component s • gyr»^p_‘i ^ 

list psdl_components; 
psdl_component s 
: PsdiNilO 

$$.syn_op_id_set = IdSetNil; 

PsdlPair(component psdl_components); 


I 



F you have a PsdlPair then union the 
coniponenLsyn_op_id with the current 
psdLcomponents.syn_op_id_set. Else, 
^ion IdSetNil with it, 

$ $. syn__op_id_set = Id_Set_JJnion (component * syn_op_id / 



component 

: ComponentNull() 

$$.syn_op__id = IdNull; 

I Data(id type^spec) 

$$.syn_op_id = IdNull;, 

I Op{id operator_spec); 

$$.syn_op_id = id; 

operator_spec 

: OpSpec(interface_list); 
type_spec 

: li^eSpec (optional_type_declaration) ; 
optional list optional_interface; 
interface_list 

; InterFaceNil() 

I InterFaceList(interface interface_list); 
interface 

: InterfaceNull() 

i Interface(attribute optional_requirements); 
attribute 

: Input(type_dec1) 

I Output(type_decl); 
optional optional_requirements; 
optional_requirements 
: OptReqmtsTraceNull() 

I OptReqmtsTracePrompt() 

1 OptReqmtsTrace{id_list); 
type_decl 

: TypeDecl(id_list id); 
op tiona1 optional_type_declaration; 
optional_type_declaration 
: OptTypeDeclNull() 

I OptTypeDecl(id_list id); 
list id_list; 
id__list 

: IdNilO 

I IdPair(id id_list); 
id 

: IdNull0 

I Id(IDENTIFIER); 


psdl_components$2. syn_op_id_set) ; 



This is a function .desiL„_ 
the Union or an la arfd a set 




If the current component is an operator, 
then assign the id to component.s3m_op_id,) 
Else, assign null to it. 


note 

The phylum id_set would look like this. 

id_set 
: IdSetNil 
1 IdSet(id idset); 

This would have to be added to the existing 
abstract syntax rules or defined elsewhere 
to denote user-defined abstract syntax. 


Figure 10. Partial Abstract Grammar showing Synthesized Attributes. 


When studying the changes made for attribution, notice the way upper and lower case is 
used. This is very important to help keep from getting confused when looking at larger 
specifications such as that for psdl. 

Figure 9 was duplicated in Figure 11 below except that the newly declared synthesized 
attributes are attached to the appropriate phylum. 
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Figure 11. Partial Derivation Tree reflecting Synthesized Attributes. 


Now we have all the operator id’s at the prototype phylum. The next thing to do is to 
send that list of operator names back down to the component phyla so that whenever a data_type 
is about to be identified, the editor can make sure the id doesn’t already exist. The nullary phyla 
do not have need of it, as they have nothing to compare it against. It is much simpler and is 
essentially the same process, only in reverse; it is inheritance, and is shown in Figure 12. The 
only possible tricky part is when dealing with lists. At phylum psdl_components, the list must 
be passed down to the current component and to the rest of the list (psdl_components$2). 
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prototype, psdl_components, component {inh id_set inli_op_id__set;}; 


prototype 

: Prot(psdi_components); 

$$, inh_op_id_set 
psdl_components.inh_op_id_set = $$.inh_op_id_set; 

list psdl_components; 
psdl_components 
; PsdlNilO 

t PsdlPair(component psdl_components); 

component. inh_op_id_set = $$. inli_op_id_set; 

psdl_components$2. inli_op_id_set = $$. inh_op_id_set; 

component 

: ComponentNull() 

1 Data(id type_spec) 
i Op(id operator_spec); 
operator_spec 

: OpSpec(interface_list); 
type_spec 

: T^eSpec (optional_type_declaration) ; 
optional list optional_interface; 
interface_list 

: InterFaceNil() 

1 InterFaceList(interface interface_list); 
interface 

: InterfaceNull() 

1 Interface(attribute optional_requirements); 
attribute 

: Input(type_dec1) 

I Output(type_decl); 
optional optional_requirements; 
optional_requirements 
: OptReqmtsTraceNull() 

I OptReqmtsTracePrompt() 

I OptReqmtsTrace(id_list); 
type_decl 

: TypeDecl{id_list id) ; 
optiona1 optional_type_decla ra tion; 
optional_type_declaration 
: OptTypeDeclNull() 

I OptTypeDecl(id_list id); 
list id_list; 
id_list 

: IdNilO 

I IdPair(id id_list); 
id 

: IdNullO 

I Id(IDENTIFIER); 

Figure 12. Partial Abstract Grammar showing Inherited Attributes. 


The problem now is that the component has the list but doesn’t know what to do with it. 
This answer to this involves the use of local attributes, rules defining error attributes, and 
possibly auxiliary functions. The functions for defining error attributes and auxiliary functions 
can be with the attribute rules or within another file (more common). 

First, declare a local BOOL(predefined in SSL) attribute called duplicate_id_error within 
the component phylum under the Data operator. This will be set to true if the current data_type 
id already exists within the inh_op_id_set. Then a function must be written to search the list for 
the data_type id. Figure 13 shows where this would be added. 


(This attribute was built in Fig lO&ll.) 


= $$.syn_op_id_set; 
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I 


Function that checks to see 
if id is in the id_set. 


prototype 

: Prot{psdl_components); 

list psdl_components; 
p s dl_component s 
: PsdlNilO 

! PsdlPair(component psdl_components); 
component 

: ComponentNull() 
i Data(id type_spec) 

local BOOL duplicate_id_error;_ 
duplicate_id__error = Id_In_OpJld_Set (id, $$ .syn_op_id_set) ; 
local STR duplicate_id_msg; 
duplicate_id_msg = (duplicate_id_error) 

? "\n" 

#" This id is already an operator id," 



• ////. 

• / 

I Op(id operator_spec); 
operator_spec 

: opSpec(interface_list)? 

type_spec 

: TypeSpec(optional_type_deciaration); 

optional list optional_interface; 
interface_list 

: InterFaceNil() 

I interFaceList(interface interface_list); 
interface 

: interfaceNull() 

i Interface(attribute optional_requirements); 
attribute 

; Input(type_decl) 
i Output (type_decl) ; 
optional optional_requirements; 
optional_requirements 
: OptReqmtsTraceNull() 

I OptReqmtsTracePrompt() 

I OptReqmtsTrace(id_list); 
type_decl 

: TypeDecl(id_list id); 

optional optional_type_declaration; 
opt iona l__type_declarat ion 
: OptTypeDeclNull() 

I Optl^eDecl ( id_list id) ; 
list id_list; 
id_list 

: IdNilO 

! IdPair(id id_list); 
id 


: IdNullO 

1 Id(IDENTIFIER); 


Figure 13. Partial Abstract Grammar showing Inherited Attributes. 


I 


Most of SSL including the auxiliary functions that can be written are very much like the 
C language. The “!” symbol, for example, means Not and the “(expression) ? is a conditional 
expression. Figure 14 below shows what the Id_In_Op_Id_Set would look like as an auxiliary 
function. Immediately following that is Figure 15 which represents the newly declared inherited 
attributes attached to the appropriate phylum. 
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BOOL Id_In_Op_I(i_Set(id data_type_name, id_set operator_names) { 
with(opeiator_names) ( 

IdSetNil: false, 

IdSet(head, tail): 

(head = data_t>^_name) 

? true 

: Id_In_Op_Id_Set(data_type_name, tail) 

) 

}; 


Figure 14. Auxiliary Function. 



In Figure 16, all of the attribute modifications are reflected at once. There are no big 
surprises except for combining synthesized and inherited attributes in the same declaration. The 
next section will concentrate on what the user sees, including notification of an error identified 
in the attribute rules. 
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prototype, psdl__components {syn id_set syii_op_id_set; 

inh is_set inh_op_id_set;}; 
component {syn id syn_op_id; 

inh id_set inh_op_id_set;}; 

prototype 

: Prot(psdl„components); 

$ $. syn_op_id_set = psdl_component s. syn_op_id_set; 
psdl_component s * inh_op_id_set = $ $. inh__op_id_set; 

list psdl_components; 
psdl_components 
: PsdlNil() 

$$•syn_op_id_set = IdSetNil; 

I PsdlPair(component psdl_components); 

$ $.syn_op_id_set = Id_Set_Union(component,syn_op_id, 

psdl_components$2.syn_op_id_set) 
component. inh_op_id_set = $ $. inh_op_id_set; 

psdl_components$2. inh_op_id__set = $$. inh_op_id_set; 

component 

: ComponentNul1() 

$$.syn_op_id = IdNull; 

1 Data(id type_spec) 

$$.syn_op_id = IdNull; 

local BOOL duplicate_id_error; 

duplicate_id_error = Id_In_Op_Id_Set(id, $$.syn_op_id_set); 
local STR duplicate_id_msg; 
duplicate_idjmsg = (duplicate_id_error) 

? "\n" 

#" This id is already an operator id*" 

• //// . 

• # 

i op(id operator_spec}; 

$ $.syn_op_id = id; 

operator_spec 

: OpSpec(interface_list); 
t^Ype_spec 

: T^eSpec(optional_type_declaration) ; 

optional list optional_interface; 
interface_list 

: InterFaceNil() 

I interFaceList(interface interface_list}; 
interface 

: InterfaceNull() 

I Interface(attribute optional_requirements); 
attribute 

: Input(type_decl) 

I Output(type_decl); 
optional optional_requirements; 
optional_requirements 
: OptReqmtsTraceNull{) 

I OptReqmtsTracePrompt() 

I OptReqmtsTrace(id_list); 
type_decl 

: TypeDecl{id_list id); 

optional optional_type_declaration; 
optional_type_declaration 
: OptTypeDeclNull() 

I OptT^eDecl (id_list id); 
list id_list; 
id_list 

: IdNiiO 

[ IdPair(id id_list); 
id 

: IdNull0 

I Id( IDENTIFIER); 


Figure 16. Partial Abstract Grammar Showing All Attributes. 
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3. Unpaxsing Rules 

As just mentioned, the editor can now determine if the user is attempting to assign an 
operator name to a data_type that already exists. In fact, there is a local attribute that contains 
the message to be displayed to the user if this situation arises. It is up to the unparsing rules to 
display the string defined in the attribute rules. The unparsing rules define everything that the 
user sees. They also controls which nodes of the abstract syntax tree are selectable and which 
productions are editable. The form in which unparsing rules appear is as follows. 

phylum : operator [ unparsing syntax ]; 

where: 

operator and phylum match the abstract syntax one for one, and the 
unpaxsing_syntax is the specification for how that part of the tree is displayed and 
is broken up into a left side and a right side, coinciding with the productions of the abstract 
syntax tree. The left and right side are divided by a denoting immutable text, or a 
denoting mutable text. 

There is another symbol called the selection symbol which represents the position of 
each phylum occurrence. Which one is used depends on whether or not that phylum occurrence 
should be a resting place for the editor. The selection symbol specifies that the phylum is a 
resting place while the selection symbol specifies that it is not. The designer of an editor 
must keep in mind that almost all phyla exist once on the right hand side (RHS) and once on the 
left hand side (LHS). Therefore, if a phylum is or is not to be selectable, both occurrences must 
be considered. It makes sense to use one side or the other to determine selectability. The 
examples here will use the LHS, which means the selection symbols on the RHS will be 

Control characters are allowed to help control the display of the screen. Table 1 lists 
them, while only three will be used here; %t for tab, %b for back tab, and %n for newline. 
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command 



%t 

move the left margin one indentation 

unit to the right 

%b 

move the left margin one indentation 

unit to the left 

%n 

newline, return to the current left 

margin 

%1 

return to the current left margin and overprint 

%1 

move to column one of the same line 

and overprint 

%T 

move right to the next tab stop 


%M(c) 

move right to column c, where c is a 

positive integer 

%o 

optional newline, return to the current left margin 

%c 

same as %o, but either all or no %c 

in a group are taken 

%{ 

beginning of an unparsing group 


%} 

end of an unparsing group 


%[ 

same as %t%{ 


%] 

same as %}%b 


%S(style-name 

enter the named style 


%S) 

revert to the previous style 


%% 

display a % 



Table 1. SSL Display Formatting Commands. 


The unparsing rules for the PSDL subset presented earlier are shown in Figure 17. 
Notice that whether a phylum is selectable is determined by its LHS occurrence. Also notice 
some consistency was maintained with respect to placement of formatting commands; whether 
at the beginning of the appropriate line or the end of the preceding line. 

All of keywords or phrases that were identified in the PSDL grammar seemed to 
disappear in the other rules. Here, however, they have returned and are displayed in the 
appropriate places. 

One last thing to note is the specification for a data_type where the user is now notified 
about “duplicate_id_msg” errors. The string variable, “duplicate_id_msg”, is always displayed 
at the Data production. The difference is that, if an error exists, the string variable will contain a 
message stating that fact, and if an error does not exist, the variable string will be a nullstring. 
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prototype 

: Prot 


psdl_components 1 

: PsdlNil 

[©:] 

1 PsdlPair 


component 

: ComponentNull 

[ ^%n [ component ] " ] 

1 Op 

[^"%nOPERATOR 

1 Data 

[^:"%nTYPE duplicate_id_msg 

operator_spec 

: OpSpec 

[^"%nSPECIFICATION% t"^“%b%nEND"] 

type_spec 

: TypeSpec 

[^:"%nSPECIFICATION%t"^“%b%nEND“]; 

optional_interface_list 

: InterFaceNil 

[@:I 

1 InterFaceList 

[©:^[]@]; 

interface 

: InterfaceNull 

[@::="<interface>"] 

1 Interface 

7 

attribute 

: EmptyAttr 

[^: '‘%n{interface}" ] 

! Input 

I^"%nINPUT%n%t"^"%b“] 

1 Output 

[^"%nOUTPUT%n%t"^"%b"] 

optional_requirements 

: ReqmtsTraceNone 

[©:] 

1 ReqmtsPrompt 

[©:"%n{requirements}"] 

1 ReqmtsTrace 

[©: -%nBY REQUIREMENTS%t%n'‘^ " %b" 1 ; 

type_decl 

: TypeDecl 

[AjAH . «AJ 

optional_type_declaration 

: OptTypeDeclNull 

"%n{optional type declaration}"] 

1 OptTypeDecl 

[©:“%n"A" : "aj. 

id list 

: IdNil 

['":"<identifier"] 

i IdPair 


id 

: IdNull 

[©::="<identifier>"] 

1 Id 



Figure 17. Unparsing Rules for Abstract Syntax. 


4. Transformation Rules 

Transformation rules allow for the restructuring of objects. While transformations can 
include various kinds of computations, this section will focus on the more general case of 
template insertion. This can only happen when the selection is a placeholder. The format of a 
typical template insertion is as follows. 

transform phylum on transformation name pattern : expression; 
where: 

transform is a keyword identifying a transformation, 

phylum identifies the phylum that this transformation can be done on, 

on is another keyword, 

transformation_name is the descriptive identifier in the help window which the 
user selects with the left mouse to activate the transformation. 
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pattern is either the same as the phylum or some appropriate sub-phylum, and 
expression is the template that is inserted where the pattern was. 

The transformation rules for the PSDL subset is displayed in Figure 18. 


transform component 
on "type* 

<component> : 

Data(<id>,<type_spec>), 
on "operator" 

<component> : 

Op{<id>,<operator_spec>); 

transform attribute 
on "input" 

<attribute> : 

Input(<input>,<optional_requirements>), 
on "output" 

<attribute> : 

Output{<output>,<optional_requirements>); 

transform optional_requirements 
on "enter_requirements" 

<optional_requirements> ; 

ReqmtsTrace(<id_list>); 

transform optional_type_declaration 
on "enter_declaration" 

<optional_type_declaration> : 

OptTypeDecl{<id_list>,<type„name>); 


Figure 18. Transformation Rules for Abstract Syntax. 


5. Concrete Rules 

The concrete rules, or concrete input syntax, is needed to provide the editor with the 
ability to do text input and to load a pre-existing program into the editor. 

It allows for text editing by parsing and then translating the string to the corresponding 
term of the abstract syntax. While the subterm is being edited, it can be any string. Once the user 
attempts to move to a different part of the structure, it is parsed. If syntactically correct, it 
replaces the term in the abstract syntax. If it is not correct, the cursor is positioned at the 
beginning of the string and an error message is displayed. 

It allows for editing existing programs by specifying mies that build a tree stmcture 
coinciding with the abstract syntax rules previously defined. This means that as a minimum, the 
concrete mles must specify a phylum in the input syntax to be associated with all phylum of the 
abstract syntax which are to be edited as text. If pre-existing programs are to be re-edited, the 
whole language must be supported. 
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There are several parts to the concrete rules, most of which is similar to what has already 
been covered above. The rules include attribute declarations which have a form such as: 

phylun_name {type_attribute attributejphylum attribute_naine}; 

where: 

phylum_name is a phylum within the input grammar, 
type_attribute is either synthesized or inherited, 

attribute_phylum is the attributes type and can be built-in or used defined, 
attribute_name is any valid identifier. 

Entry declarations are required to create a correspondence between the entry points 
within the input syntax and the appropriate selection within the abstract syntax. Their format is 
as follows: 

p ~ P.t; 

where: 

p is a phylum such that the current selected component is of that phylum, and 
P is an input phylum such that the input is parsed to see if it is of that phylum, and 
t is a synthesized attribute that if the input is of phylum P, is used to replace the 
current selected component [Ref. 13]. In other words, if the two phylums match, the attribute 
goes in the derivation tree. 

The input syntax must have tokens, so there are also lexemes in the concrete rules. There 
is one mle for each keyword or token. All white space is ignored during the parsing of the input 
program. The format of a lexical phylum declaration is the same as for the abstract syntax rule. 
For convenience, it is repeated below. 

phylum-name : lexeme-name regular-expression ; 

Last, but certainly not least, is the productions of the input grammar or parsing 
declarations. A slight difference from what was explained previously is the use of the $. In this 
context, the phylum appended with $1 means the first occurrence and $2 is the second 
occurrence, and so on. The productions of the input syntax can be ambiguously specified in 
which case there must be disambiguating precedence rules. The general form is shown next. 
phylum_name ;:= (phylum_token_comb) {LHS = RHS;} 

where: 

phylum_name is self explanatory. 


39 


::= is the symbol to separate the LHS phylum name from the RHS symbols, 
phylum_token_comb is a phylum, token, or a combination of both which is 

parsed, 

LHS=RHS is the assignment of some value to the attribute of the phylum_name. 

On the following page is Figure 19, which contains the concrete rules for the subset of 
PSDL that has been the ongoing base throughout this chapter. The use of inherited attributes was 
not covered in this section as it is somewhat more detailed. It is covered extensively in 
references [Ref. 13,15], however, for the interested reader. Also, the concrete rules for PSDL in 
the CAPS SDE do use inherited attributes to deal with the fact that the productions build lists in 
reverse order. 

Hopefully several things have been accomplished in this chapter. First, the reader should 
have a better appreciation for how powerful the SynGen really is. Second, s/he should have a 
little better grasp of what PSDL is and how it is structured. In the next chapter, a small sample 
application is introduced. In that section, particularly when dealing directly with SDE, the reader 
should be continually reminded of the rules discussed in this chapter. Significant aspects of the 
first four rules are in that sample application. Everything shown to the user was specified in the 
unparsing rules. All warning and error messages are defined and discovered within the attribute 
rules and auxiliary functions. All transformations in the help window (bottom) of the SDE are 
specified in the transformation rules. While not evident in the sample application, bringing an 
existing prototype into the SDE requires the concrete rules. And finally, none of the above would 
be possible without the derivation tree representation of the prototype itself, specified through 
the abstract syntax rules. 
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/* Attribute Declarations 

PROTOTYPE 

PSDL_COMPONENTS 

COMPONENT 

OPERATOR_SPEC 

TYPERSPEC 

OPTIONAL_INTERFACE_LIST 

INTERFACE 

ATTRIBUTE 

OPTIONAL_REQUIREMENTS 

TYPE^DECL 

OPTIONAL_TYPE_DECLARATION 

ID_LIST 

ID 

/* Entry Declarations */ 

prototype 

psdl_components 

component 

operator_spec 

type-_spec 

optional_interface_list 

interface 

attribute 

optional_requirements 

type_decl 

optional_type_declaration 

id_list 

id 

/* Lexemes Same as before 
/*Parsing Declarations */ 
PROTOTYPE 

PSDL_COMPONENTS 


COMPONENT 

OPERATOR'SPEC 
TYPE_SPEC 

OPTIONAL_INTERFACE_LIST 

INTERFACE 


V 

{synthesized prototype t;}? 

{synthesized psdl_components t:}; 
{synthesized component t;}; 

{synthesized operator_spec t;}; 

{synthesized type_spec t;}; 

{synthesized optional_interface_list t;}; 
{synthesized interface t;}? 

{synthesized attribute t;}; 

{synthesized optional_requirements t;}; 
{synthesized type_decl t;}; 

{synthesized optional_type_declaration t;}; 
{synthesized id_list t;}; 

{synthesized id t;}; 

~ PROTOTYPE.t; 

- PSDL^COMPONENTS.t; 

~ COMPONENT.t; 

- OPERATOR'SPEC.t; 

~ TYPE_SPEC.t; 

~ OPTIONAL_INTERFACE_LIST.t; 

~ INTERFACE.t; 

- ATTRIBUTE.t; 

- OPTIONAL^REQUIREMENTS.t; 

~ TYPE^DECL.t; 

~ OPTIONAL_TYPE_DECLARATION.t; 

ID^LIST.t; 

- ID.t; 

and not specified again. */ 

::= {PSDL_COMPONENTS} 

{PROTOTYPE.t = PSDL_COMPONENT.t;} 

::= (COMPONENT PSDL_COMPONENTS) 

{PSDL_COMPONENT.t={COMPONENT.t::PsdlNil;} 
I (COMPONENT PSDL_COMPONENTS) 
{PSDL_COMPONENTS$l.t = 

(COMPONENT.t::PSDL_COMPONENTS$2.t);} 


::= 0 


0 


{COMPONENT.t = ComponentNull;} 

("TYPE" ID TYPE_SPEC) 

{COMPONENT.t = (DatadD.t, TYPE_SPEC.t) ) ; } 
("OPERATOR" ID OPERATOR_SPEC) 

{COMPONENT.t= (Op(ID.t, OPERATOR_SPEC.t));} 
("SPECIFICATION" INTERFACE_LIST "END") 
{OPERATOR_SPEC.t = INTERFACE_LIST.t;} 

("SPECIFICATION" TYPE_DECL "END") 

{TYPE_SPEC.t = TYPE_DECL.t;} 

() 

{OPTIONAL_INTERFACE_LIST.t= InterfaceNil;} 

(INTERFACE OPTIONAL_INTERFACE_LIST) 
{OPTTIONAL_INTERFACE_LIST$l.t = 

(INTERFACE.t::OPTIONAL_INTERFACE_LIST$2.t);} 


ATTRIBUTE 

OPTIONAL_REQUIREMENTS 

TYPE_DECL 

OPTIONAL_TYPE„DECLARATION 

ID_LIST 

ID 


{INTERFACE.t = InterfaceNull;} 
(ATTRIBUTE) 

{INTERFACE.t = ATTRIBUTE.t;} 

(ATTRIBUTE OPTIONAL_REQUIREMENTS) 
{INTERFACE.t = Interface(INTERFACE.t, 
OPTIONAL_REQUIREMENTS.t); 
("INPUT" TYPE_DECL) 

{ATTRIBUTE.t = Input(TyPE_DECL.t);} 
("OUTPUT" TYPE_DECL) 

{ATTRIBUTE.t = Output(TYPE_DECL.t);} 


:= () 


{OPTIONAL_REQUIREMENTS.t = OptReqTraceNull;} 
(ID_LIST) 

{OPTIONAL_REQUIREMENTS.t = ID_LIST.t;} 
(ID_LIST ":" ID) 

{TYPE_DECL.t = TypeDecl(ID_LIST.t, ID.t;} 


:= () 


{OPTIONAL_TYPE_DECLARATION.t = OptTypeDecNull;} 
(ID_LIST ID) 

{TYPE_DECL.t = TypeDecl(ID_LIST.t, ID.t;} 


::= () 


{ID_LIST.t = IdListNil;} 

(ID ID_LIST$1) 

{ID_LIST.t = ID.t::ID_LIST$2.t;} 

{) 

{ID.t = IdNull;} 

(IDENTIFIER) 

{ID.t = Id(IDENTIFIER);} 


Figure 19. Concrete Rules For Abstract Syntax. 
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IV. SYNTAX-DIRECTED EDITOR (SDE) 

As discussed in the previous chapter, the SDE is an editor tailored to PSDL so that it can 
assist the user in writing correct programs. The power of such a tool is immense and previous 
work combined with the work of this thesis have only begun to tap its potential. Because the 
focus of this thesis is on the SDE, it will be covered somewhat extensively here. 

This chapter will cover creating an example prototype with the SDE, the constraint 
checking functionality that is to be added to the SDE, the actual modifications to implement that 
additional functionality and finally, an example with the modified editor. 

A. EXAMPLE OF SDE 

1. Simple Tutorial 

This section will provide you with the minimal tools necessary to perform software 
development through rapid prototyping. Your attention will be focused on the PSDL Editor 
consisting of three separate parts; the Syntax Directed Editor (SDE), the Graph Viewer and the 
Graphic Editor. 

These three parts taken together allow the designer to create the CAPS data flow 
diagram and PSDL program. They further allow assignment of all timing and control constraints 
to prototype components which consist of operators and data streams. For a more detailed 
presentation, see the CAPS Tutorial. 

To start CAPS, you simply t5^e “caps”. This will start it up in the designer mode. LFsing 
the switch “-m” allows CAPS to be started up in the manager mode. We will not use that, as it is 
beyond the scope of this example. All of the work that is generated under CAPS is saved in a 
“.caps” directory which is directly under your Home directory. If you do not have it, CAPS will 
create it for you. The current version of CAPS not only creates the “.caps” directory, if you 
don’t have it, but it also copies two sample prototypes into it. One of these is the one you are 
about to create. Therefore, to avoid this potential problem, if you don’t have a “.caps” directory, 
create your own. The results of this section will produce a design that looks like Figure 20. 
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Figure 20. Temp_ControHer Prototype displayed in Graph Viewer. 

As soon as you start CAPS, you will see an interface like that shown in Figure 21. 



Figure 21. The CAPS User-Interface (Designer Mode). 


To select a prototype that already exists, you simply select “Choose” from under the "Pro¬ 
totype" menu, and the available protot 5 'pes will be displayed for you to select from. That only 
selects the prototype. You must then select “PSDL” from under the ’’Edit” pull down menu to 
invoke the SDE. 

To start a new prototype, puU down the “Protot 5 ^e” menu from the CAPS designer mode 
screen and select “New”. Do that now and the window displayed in Figure 22 will appear. 







































































































eiiter your Jie^w pnitotij^pe 


Figure 22. New Prototype Window. 

Left click the prototype name box which will cause it to become highlighted. Enter 
TEMP_CONTROLLER and left click your mouse on the OK button. You must use the mouse to 
activate the name box and acknowledge ok when finished. A <retxun> will not work here. In addi¬ 
tion, CAPS is case sensitive because the underlying file structure is based on UNIX. Identifiers of 
two words or more must be connected by an underscore. When you do this, two windows will 
open up as shown in Figure 23. 



CAPS-Onds File Edit View Tools Options Structure Text Help 


New file TEMP_CONTROLIJER.psdl 


OPERarOR TEMP CONTROLLER 


UaRNINGS, ERRORS AND ALERTS: 


— This Is A Root Operator 


SPECIFICATION 

END 

DIPLEHENTATION 


<declarations> 

<control constraints> 
END 





Context: graph 


Figure 23. PSDL Syntax Directed Editor (SDE) and Graph Viewer. 

Notice that the initial root operator in the SDE is the same as the name that you provided 
in the new prototype selection. TEMP_CONTROLLER is entered as a Stub in the SDE and acts 
as the operator for the total prototype. Also, the Graph Viewer is empty as we have not started to 
graph the prototype yet. That’s next. 
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All of the pull-down menus in the SDE are active, however all of the necessary commands 
for PSDL editing and file saving are found in the “CAPS-Cmds” pull down menu. Do not use the 
“file” pull-down menus, because if you do SDE will not save a correct PSDL program. 

From the SDE, invoke the CAPS Graphic Editor by using the “edit graph” command from 
the “CAPS-Cmds” pull-down menu. Figure 24 wiU appear. 


Active graphic 
editor tool. 



Figure 24. The CAPS Graphic Editor. 

Once in the Graphic Editor, the designer draws the data flow diagram, enters operator 
names, inserts input and output streams, and enters some of the prototype timing information. 
Additional timing and control constraints are entered and implementation options are selected in 
the SDE. That will be covered after you complete the graph of the prototype. 

The CAPS Graphic Editor is used first and foremost to lay out the data flow design of a pro¬ 
totype. Operators are linked together with data streams and given names. Context sensitive 
attributes are assigned to operators and data streams. These attributes are the maximum execution 


46 




















































time (MET) for operators and latency (LAT) for data streams. Recal that the MET is the maxi¬ 
mum amount of CPU time the operator can use for execution and the latency of a data stream is a 
lower bound on the amount of time required for transmission of data along that stream. The fig¬ 
ures and words that appear on the left hand side of the Graphic Editor (the Graphic Editor palette) 
are editing tools. 

The functionality of the tools are summarized as follows: 

CIRCLE.Draw circular operators to represent proposed software components, 

SQUARE...Draw rectangular operators to represent simulations of external systems, 
LINE.Draw data streams, 

Properties...Assign properties to the selected operator or data stream. 

Select.Enable selection of an object in the graph. 

The name of the active tool is displayed in the lower left portion of the Graphic Editor and 
the name of the operator being edited is displayed in the lower right portion. 

Begin by putting in the software operators for the TEMP_CONTROLLER prototype. 
Select the Circle Tool, or software operator palette, and left click your mouse. Now move your 
mouse cursor into the working area and left click again. A circle will appear. Make six more by 
simply left clicking in six separate places so that your graph looks something like that of Figure 
25. 
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Figure 25. Too many software operators. 

Whoops, you should only have four circles in your graph. You can delete some of them 
with the select tool! With your mouse, left click on the Select tool. Now move the mouse to a cir¬ 
cle and left click again. The circle that you selected will be framed by square reference points. To 
delete the circle, press the delete key or backspace key on your keyboard. To select another object, 
simply move the mouse onto another circle and left click again. 

You can also move and resize objects within your working space with the use of the select 
tool. Simply left click on the Select tool and then left click on the object you want to move or 
modify. Once you have left clicked on the select tool you can also make another object active by 
clicking on it without hitting the select button again. By depressing the left mouse button while on 
an object, and then moving the mouse, you can drag the object to where you want to place it. 
When you reach the point where you wish to place it, simply stop dragging the mouse and release 
the left mouse button. In the case of re-sizing, simply left click one of the reference points after 
selecting the object and move the mouse, letting go of the bottom when the object is as desired. 

To label your software operators, click on the Select tool, select an object, and then click 
on the Properties tool. This will bring up the Properties_popup window seen in Figure 26. 
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Figure 26. Properties Box for Operators. 


Click in the Operator Name box and type its name. Then click in the next box or hit the tab 
key to enter the MET information, if desired. Now click “OK” or hit the <enter> or <Retum> key. 
The units of milliseconds (ms) are automatically appended to the number entered in the Properties 
popup dialog box. If you enter units while in the Properties popup dialog box, your max execution 
times will not appear on the graph. 

The TEMP_CONTROLLER prototype with all software operators labeled should appear 
similar to Figure 27 below. 












































Max execution time labels can be selected and moved like all other units. Be careful that 
you do not misplace them however, as the object they refer to should be obvious by their place¬ 
ment. 

Next you will use the Line tool to enter data streams between objects. Move your mouse 
to the Line tool palette and left click. To start the stream, place the cursor in an object and left 
click. To end the stream, move the mouse to another object and left click again. Data Streams can 
originate or terminate in an object or outside of an object if they are external input or output. To 
start or end a stream outside of an object, double click the left mouse button. If curved lines are 
needed, create way points along the line by clicking the left mouse as you proceed to the termina¬ 
tion point of the stream. When the line is completed it will curve to conform with the way points. 
Figure 28 shows the TEMP_CONTROLLER prototype with data streams entered. 



Figure 28. TEMP_CONTROLLER with Data Streams entered. 


The data streams have properties similar to the other objects in that they have object 
names and a latency attribute. The Properties_popup for data streams is shown in Figure 29. 
Again, the latency attribute is measured in ms by default. The functional restrictions pertaining to 
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data entry for this window are the same as in the Properties_popup for operators. Note that the 
editor is smart enough to call up the right Properties_popup box. 



Figure 29. Properties Box for Data Streams. 


The data stream popup box allows for indicating whether the data stream is a state stream 
or non-state stream. These are optional and have not been entered here. In the graphics editor, the 
default is non-state stream. In this edition of CAPS Release 1, the state streams are defined in the 
SDE. For more details on data streams, refer back to chapter two. 

Data stream labels can be moved like other objects by using the Select tool and then drag¬ 
ging with the mouse. If a data stream name or latency label is deleted the entire data stream is 
deleted as well. If a stream must be modified (i.e. rename it or change its latency time), it should 
be done through the Properties_popup box. 

The prototype data flow graph is complete and there is little left to do in the graphic 
model. We will now open up the SDE. To return to the SDE firom the Graph Editor, drop the 
“Graph” menu on the menu bar and select “Return to SDE”. The Graphic representation of your 
prototype will be saved automatically. With the possible exception of “Decompose”, which will 
be discussed later, the other choices on both menus are self-explanatory. 

The first thing you should notice when you return to the PSDL Editor (See Figiue 30) is 
that stubs have been created (in alphabetical order) for all of the data streams that you created in 
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the Graph Editor. Stubs, in the form of Control Constraints, have also been entered for all Opera¬ 
tors that you created. These too are in alphabetical order. 



Figure 30. PSDL Editor after Graph is complete. 
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Once in the editor, you can use the mouse to move the cursor, which appears as a caret, or 
you can move it with the arrows on your keyboard. When you move the cursor to the end of 
“SPECIFICATION”, the menu in Figure 31 appears at the bottom of the editor. Some of these 
selections are input via the Graph Editor, i.e., o_inputs_list, o_outputs_list and o_timing_info. 
You can enter these things in the SPECIFICATION, but if the information that you enter is incon¬ 
sistent with that entered in the Graph Editor, the SDE will change it to make it consistent. Most 
important to remember is that the cursor is context sensitive and menus will automatically open 
based on where the cursor is placed. You wiU also know what part of the prototype is currently 
selected by the underlining that SDE inserts. 


CdnteKl: Dpera1or_st)ec Q 


kEyvnirds 


ojnputsjist I ojutjpiitsjist. 


o_famwJ_descs I d jaiericsjst 


D_e;«eptjorisJjst 


Operaior 


Figure 31. Specifications Tool Bar. 

Since we are in the top level of the editor, the only things that we will enter into the SPEC¬ 
IFICATION are key words. Select “o_keywords”, which stands for optional keywords; the “o” in 
all of these options stand for optional. The next display should look like that of Figure 32. 


I Camtest; o_keywanla 


excpptiDnsjist I atiningtira 


|o_genEricaJfot| 

1 oJnpMtsJist 1 

1 [i_Cil.jl|)Ut3_list 

h 

3tate3 i3t 


Kfiyworris 


Figure 32. Keyword Tool Bar. 

Note that the context of the cursor position now changes from operator_spec to 
o_keywords. When the Keywords Tool Bar opens, the SPECIFICATION section of your PSDL 
editor will change. A place holder wUl appear in the form of square [] or angel brackets <>. Any 
time you see square brackets, information placed inside of them is optional. The actual insertion 
under the SPECIFICATION line should be “ Foptional kevwordsi” . Click on the Keywords option 
in the Keyword Tool Bar and the Q will be replaced by <identifier> . You are now ready to enter in 
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Keywords. Hit the return key after each keyword (commas will be inserted). Multi-word key¬ 
words can be separated by underscores. When you are finished you must hit return twice. This 
will save your entries. 

If you make mistake, you can back space over incorrect text just entered or you can high¬ 
light (click of left mouse) that section of the prototype to be deleted (recall it will be underscored). 
Then hit <ctrl> <shift> <k> simultaneously. If you have an optional empty place holder you can 
eliminate it by moving the cursor up with the arrow key or by clicking elsewhere with the left 
mouse button. 

Other items that you can add to the SPECIFICATION are informal descriptions and 
STATE DECLARATIONS. The informal descriptions will appear in {} and are similar to user/ 
programmer comments in other programming language. They are for human consumption only 
and are ignored by the PSDL compiler. The State Declarations are necessary to specify Data 
Streams that require initial values. 

You can look at the graph at anytime by clicking in the PSDL where there is mention of 
the graph components. For example, positioning the cursor at the “OPERTOR 
TEMP_CONTROLLER” or below will bring up the graph at the top level (the only level at the 
current time). The Graph \fiewer will come up automatically. If the graph viewer window is 
closed (or minimized), it will be labeled, “graph_edit”. Do not be confused by this as it is still the 
graph viewer. 

Now enter the declaration types for the data streams. Position the cursor before, in, or after 
the <decl_type_name> component of the DATA STREAM. A subtle requirement of the SDE 
should be mentioned here. When entering information applying to streams and control constraints 
of operators, you must enter them into the parent of the operator or stream. Left Click the place 
holder specified above and a menu bar of standard defined types wiU activate at the bottom of the 
PSDL Editor. Click on the type declaration “FLOAT” and that data stream will be defined for that 
t 3 ^e. Now do the other two. Actually, you would pick which ever type makes the most sense for 
your design. User defined types can also be accessed from this menu bar and typed in by the user 
but that is outside the scope of this guide. 

More important however is the propagation of type declarations throughout the PSDL pro¬ 
gram when you define the data streams. Once you’ve selected the types for these three streams 
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within the parent operator, you merely left click anywhere else and the new declarations are prop¬ 
agated throughout the prototype as shown in Figure 33 below. 


CflPB-Cnds File Edit Vieu Tools Options Structure Text 


NeH rUe TEHP.C()NTROLUER.psdl 


OPZRATOR Cooler 
SPECIFICATION 
IHPDT 

Cool Signal 
< operator iapleaentation) 


FLOAT 


OPERATOR EvaluateJIciiip 
sPECiFicanoH 
INPUT 

Teiaperature 
OUTPUT 
Cooi_Signal 
Heat_Signal 

yamoi execution time 200 

END 

<operator inple]ientation> 

OPERATOR Heater 
SPECIFICAnON 
INPUT 

Heat^Signal : FLOAT 
END 

<operator iapleiientation> 



[ All of the declaration type assignments 
to the left where automatically prop^ated 
from those made under "DATA STREAA 


OPERATOR Sensor 
SPECIFICATION 
OUTPUT 

Tei^erature : FLOAT ' 
MAODM EXECUTION TIME 175 MS 
END 

(operator i3ipleiientation> 


OPERATOR TEMP JONTROLLER 
- MUGS, ERRORS AMD ALERTS: 
-- !Ihi3 Is A Root Operator 


SPECIPICAnON 

END 

mEMEHTATION 

GRAPH 

- see graph viewer for details - 



DATA STREAM 
Cooljignal: FLOAT, 
jHeatJignal : FLOAT,. 
Temperature : FLOAT 
CONTROL CONSmmTS 
OPERATOR Cooler 


f The 

IMI 
I chai 


jn-i. 




These updates must be made within the 
parent Operator (TEMP_CONTROLLER) 
IMPLEMENTATION so that the 
changes are propagated correctly. 

_ 4 


OPERATOR EvaluateJCeiap 
OPERATOR Heater 
OPERATOR Sensor 


Figure 33. Complete PSDL Program showing l^pe Declaration propagation. 

Also illustrated in Figure 33 is the PSDL Editor’s ability to correctly assign data streams 
as either input or output within the Operator Specifications found in the top of PSDL program. 
The Maximum Execution Times that you entered in the Graphics Editor are displayed there as 
well. 

Control Constraints can be modified directly from the PSDL Editor by using the mouse or 
arrow keys as previously mentioned. While in the graphics editor, two processes (Sensor and 
Evaluate_Temp) were deemed as time-critical and were given MET’s. At this point, it must be 
decided whether they are periodic or sporadic operators. Suppose we decide that both should be 
periodic and that the constraints are as follows: PERsengor = 190ms, PEREvaiuate.Temp = 210ms, 
FWsensor = 185ms, and finaUy FWEvaluate_Temp = 205ms. 


55 











In order to accomplish this, we first left click just past the control constraint we wish to 
edit; “Sensor”. Then the menu bar at the bottom of SDE changes to that shown in Figure 34. You 
click on “optional_period”, and then the menu in Figure 35 appears. Click “Optional_Period” and 
the operator “Sensor” has its first constraint under it. You do the same procedure for entering the 
time (not shown here); i.e. left click “'Iime_Expression”, enter an integer for the placeholder 
(should be 190), hit return, select the desired units from the menu bar, and finally click where you 
want to go next. 


constraints I optional jrigger 
iiicp I optional jiirt. I oiit|nit._( 

tjiiier_operatlDns 


Figure 34. Control Constraints Menu Bar. 
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lanls exceptionjis 


Context: id 


operatorJdjairs 


optionaljnish witliin optiona 


ieft-select 


Context: optional_period 

Optjonal_Pehoti 


optionaltrigger 




operaterjdjiairs 


Figure 35. Optional Period Menu Bar. 

After you enter in the constraints for the two time-critical operators, your PSDL should 
look like that pictured in Figure 36. 
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Figure 36. Complete PSDL Program with Control Constraints. 

But what if we wanted to decompose one of our operators? Recall the CAPS prototyping 
process from chapter two. When you have a component, you first look to see if it can be imple¬ 
mented with a component from the software base. If not, it must be determined whether the oper¬ 
ator should be decomposed. If yes, you will go through the same thought process just described to 
specify the sub-components of the operator. When dealing with operators that should not be 
decomposed, they must be implemented by hand (currently requires Ada implementation). So 
then, the question here is how to decompose an operator. 

First select “edit-graph” from the “CAPS-Cmds” in the SDE menu bar. You should get a 
window that looks like Figure 28 again. 
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Figure 28. (Repeated). 

Select the Sensor Operator and then select “Decompose” from the “Graph” menu bar. It 
will automatically open up a Graph Editor that looks like Figure 37 below. The Graph Editor 
shows the data stream, “Temperature”, as an external output from the Sensor operator. This is 
information that you need to keep in mind as you decompose the Sensor. It must be maintained 
for consistency and is brought forward so that the user does not have to look back at the parent 
operator. 
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Figure 37. Operator Sensor after initially selecting decompose. 


To decompose Sensor, you draw the appropriate data flow diagram just as before. This 
diagram, however, is the internal workings of the composite operator “Sensor”. An example is 
given below in Figure 38. 
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Figure 38. Operator Sensor decomposed. 

Now that you are done with the editor, you can either go back to the previous level data¬ 
flow graph or return directly to SDE (choose to go back up this time). Those options are both 
under the “Graph” pull-down menu as “Edit Parent” and “Return to SDE” respectively. If you go 
back to the top level diagram, you should notice that the “Sensor” operator is different as shown 
in Figiure 39. This doubled circle denotes that the operator is composite and has been decom¬ 
posed. 
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Figure 39. TEMP_CONTROLLER Prototype with Sensor marked as decomposed. 

The PSDL file in the SDE will reflect the changes made and will add new operators, exter¬ 
nal simulators and data streams as necessary. The declarations and control constraints for these 
objects are modified as previously described in this guide. 

You should now be able to build a prototype in the graphic editor, make type declarations, 
and define control constraints in the SDE. The following table provides a quick reference on 
which type of information can be entered into each editor. 


Graphic Editor Information 

Syntax Directed Editor Information 

vertices & edges (operators & data streams) 

operator names 

data stream names 

operator maximum execution time 

data stream latency time 

operator color & shape 

control constraints 

data stream types 

timer declarations 

state declaration & initialization 

user defined types 

operator & type implementation selection 


Table 2. Summary of editor inputs. 


If you look back at the complete PSDL program in Figure 36, you will notice one more set 
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of placeholders that haven’t been filled in. These are for the “operator implementation”. As dis¬ 
cussed earlier, for each component in your design, you musfeither find a component within the 
software base that can fill its needs, further decompose it, or implement it in Ada. For instmc- 
tional purposes here, simply go to each placeholder, click on it, and select 
“Ada_Implementation”. Obviously, if this were a real application, someone would eventually 
have to implement those atomic operators. Once the prototype is complete, save your work in the 
PSDL Editor by “PSDL-Save” or “PSDL-Save-Exit” from the “CAPS-Cmds” button on the menu 
bar. The next step would be to Translate the prototype to generate the code that will tie everything 
together. After that, you would invoke the Scheduler which determines a schedule for the system. 
And finally, it would be compiled to create executable code. Don’t go any farther as there are 
problems, besides the fact that you don’t have implementations for your operators, that will be 
covered in section C. 

2. SDE Menu Functions 

Because the last section was designed to be a simple example, the menu of the SDE was 
mostly excluded with the exception of some of the options under “CAPS-Cmds”. Recall that the 
“File” menu should not be used. This section was added because there are several options that 
the designer should be familiar with. The others can be experimented with to get some exposure 
as free time dictates. 

Under the “Edit” pulldown menu are several options that most users are already 
accustomed to. The cut, copy, paste, and delete are in most editors today. The SDE is no 
exception. This menu gives you a choice of either text or a stracture that you’ve already 
highlighted, and acts like any other editor with respect to use. Getting accustomed to these can 
enhance the designers productivity as they speed development time. 

The “View” pulldown menu deals with what representation of the abstract syntax tree 
you wish to see. You can select any number of different views or a combination of them. While 
this is fun to experiment with, the default view is the best for the beginning designer. 

The “Tools” pulldown menu is also for a more advanced user. A designer that is familiar 
with the concepts of the sub-menu items below this option will quickly grasp their intent as they 
are very common in the Unix toolset. 

The “Structure” pulldown menu deals with moving around in the edited prototype. Most 
of this is also accomplished more easily with the tab, space bar, and especially the mouse. The 
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one option that must be mentioned, however, is the “ascend-to-parent”. Sometimes the user can 
get confused as to what part of the abstract syntax tree is being displayed in the editor and there 
are times when the structure highlighted must be walked back up the tree. For example, when a 
designer decides to quit work on a prototype before assigning types to the streams. Before 
quitting, the prototype would look something like that displayed in Figure 40 below. Notice that 
the placeholder says <decl type name> . 


[■ CfiPS-Cnds File Edit Vieu Tools OpLio 

ns Stru( 

cLure Tej 

<t 

Help 

|l|Nothine to delete I 


OPERATOR Opl 
SPECIFICATION 
OUTPUT 

SI ; <decl_type_naafte> 
END 

< operator ijapLejftentation> 

OPERATOR 0p2 
SPECIFICATION 
INPUT 

Si : <decl_type_naae> 

END 

<operator impleirLentation> 
OPERATOR tl 


— WARNINGS, ERRORS AND ALERTS; 

— This Is A Root Operator 


I SPECIFICATION 
END 

IMPLEMENTATION 

GRAPH 

— see graph viewer for details — 

DATA STREAM 

SI : <decl typejnajftO 
CONTROL CONSTRAINTS 
OPERATOR Opl 

OPERATOR Op2 

END 


Context: decl.type_fiane INTEGER FLORT BOOLERH EXCEPTION UserJIefined RERL 


C 


Current Placeholder 




Figure 40. Data Stream without Type Declaration. 

If the designer were to exit the SDE, saving the prototype without fully defining the 
stream SI, the placeholder would be different upon re-editing the prototype. Because the SDE 
checks to ensure that any prototype being loaded into the editor is syntactically correct, the 
stream must be defined. To keep from getting an error then, SDE puts an identifier in the 
placeholder. Now when you open the prototype, you see what is displayed in Figure 41. 
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CflPS-Ctids File Edit View Tools Options Structure Text Help 



Figure 41. Data Stream with changed Type Declaration. 


The designer may now want to make the stream an integer. Instead of indicating a 
type_decl_name as before, it shows the placeholder as an id. The designer must select the id, 
UNDEFINED TYPE NAME , and delete it using the “delete-stracture” option in the “Edit” 
menu. This will make the placeholder appear as <identifier> . The next step is to walk up the 
syntax tree. This is done by selecting “ascend-to-parent” in the “Stmcture” menu. After doing 
that, you should notice that the context (shown in the Help Pane at the bottom of the SDE) now 
shows the placeholder to be a decl_type_name, which is desired. Delete the placeholder one 
more time and you are back to what was there before you quit. In addition, the Help Pane now 
shows all the available transformations for a decl_type_name. 

Alternately, one can first select the id, UNDEFINED_TYPE_NAME, and then “ascend- 
to-parent” in the stmcture menu, followed by selecting the “delete-structure” option under 
“Edit”. 

The “Text” pulldown menu provides more ways of moving around, provides for search 
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and replace techniques, and has an undo option. And finally the help is the last pulldown menu 
but is very limited in its current implementation. 

Finally, some of the useful keystrokes of the editor are listed below. Recall that the 
delete keystroke was covered earlier in the example. 


Control-Shift-K.Delete Structure, 

Control-Shift-P.Move up one level in the parse tree, 

Control-h.Delete previous character, 

Control-v.Advance one page, 

Control-d.Delete next character, 

arrow keys.move up, down, left, right, 

delete or backspace.Delete previous character. 


There is no “undo” command in the Syntax Directed Editor, so the user must be careful. 
If a major problem occurs during editing, the best option is to select “exit” from the “CAPS- 
Cmds” pulldown menu and exit without saving. 


B. NEW FUNCTIONALITY 
1. Scheduling Constraints 
a. General 

All time-critical operators are non-preemptable under the current CAPS model, 
meaning that once they start, they will run until done. And as previously mentioned, these 
operators are statically scheduled; before runtime. The other operators, however, are preemtable, 
and are scheduled dynamically at runtime. This means the hardest part of ensuring that a real¬ 
time system will run correctly is ensuring those time-critical operators can be scheduled. Non 
time-critical operators simply use whatever time is left during runtime, including the time left 
over when an operator finishes early. For that reason, most of the concentration here will be on 
time-critical operators. 

Recall that when an operator has a MET (maximum execution time), it is time- 
critical and is classified as periodic or sporadic. The previous definition of MET, the maximum 
amount of CPU time the operator can use for execution, is right on for atomic operators. In the 
case of composite operators, however, MET is defined a little more loosely as the maximum 
time needed along any thread of control within the operator itself. In addition to the above 
definition, it must be realized that the MET encompasses data triggering checks, stream reads, 
execution guard checks, execution of the operator, output guard checks, stream writes, and 
exception handling [Ref. 11]. Table 3 recaps the two classifications of a time-critical operator. 
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Periodic Operators 

Sporadic Operators 

Maximum Execution Time (MET) 

Period (PER) 

Finish Within (FW) 

Maximum Execution Time (MET) 
Minimum Calling Period (MCP) 

Maximum Response Time (MRT) 


Table 3. Classifications of Real-Time Operators. 


As shown above, and previously discussed in chapter two, periodic operators also 
have a PER (period), and a FW (finish within) time where the PER depicts the frequency in 
which the Scheduler makes a processor available for execution and the FW denotes how long 
from the start of the PER before execution must be completed. Figure 42 below is provided to 
help make this concept a little clearer. The figure shows that periodic operators are triggered by 
temporal events occurring at regular intervals; thus the PERiod, which is the span of time 
between two successive activations. 



In addition to the MET, a time constrained operator that is sporadic has a MRT 
(maximum response time) and a MCP (minimum calling period), where MRT refers to the 
maximum amount of time between the arrival of new data on the input data stream(s) (which 
triggers the operator) and the time when the last output is put on the output data streams, and 
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MCP refers to the lower bound on the delay between two subsequent arrivals of triggering data 
on the input. MCP is actually more of a constraint on the operator(s) that produce a triggering 
data stream. Figure 43 shows sporadic operator constraints pictorially. 
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^Period^ 
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MET 


RT<MRT 


MRT 
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MCP 


Activation 
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RT = actual response time 
CP = actual calling period 


Figure 43. Timing Constraints for the Sporadic Operator. 


There are two other timing constraints provided by PSDL that haven’t been 
mentioned yet. They are for dealing with distributed systems, and because they are important, 
are covered here. However, these are not used in the current enhancements to the SDE and 
therefore will not be mentioned after this paragraph. The first is Latency (LAT), which denotes 
the maximum delay that can occur between a producer operator writing to a stream and a 
consumer operator reading that same stream. This can become a problem when dealing with 
networks and therefore must be accounted for in such cases. The second constraint for 
distributed systems is the Minimum Output Period (MOP), which is the amount of time an 
operator must wait before issuing another write to an ouq)ut stream. Both of these constraints 
are due to the possible delays introduced by network traffic, and restrict an operator from 
reading/writing from/to a stream before the appropriate LAT/MOP has elapsed, 
b. Data Triggering Semantic Checking 

The specific constraints that must hold in order that a prototype is schedulable are 
many and complex. Because of this, only the simpler ones that are directly involved in changes 
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to SDE are mentioned. Also, because the focus of this thesis is concerned with making SDE 
more productive by adding schedulability checking, the theories behind schedulability rules will 
be discussed lightly and not proved. For a much more in-depth look at the fundamental theory of 
the scheduling of distributed hard real-time systems, see reference [Ref. 11,16]. 

After gaining some familiarity with the concept of periodic and sporadic 
operators, several relatively simple, but important, constraints that must be imposed on the 
producer and consumer operator connected via one or more streams that need to be adhered to 
become apparent; constraints that can be checked while in the SDE. 

If the producer of a stream has a period that is shorter than that of the consumer 
of the same stream, there is a strong likelihood that a problem will develop whereby the 
consumer can not stay caught up. For that reason, the rule is that the Consumer’s PER must be 
less than or equal to that of the Producer if they are connected by a dataflow stream. 

Sporadic operators are not regularly firing operators. They fiire based on the 
arrival of new data. However, if a sporadic operator has no data trigger, it will be defaulted to a 
periodic operator with period equal to MCP to meet the need for some sort of conversion for 
periodicity and thus schedulability. 

The next constraint involves a time-critical producer with a non time-critical 
consumer connected by a dataflow stream. There is a strong likelihood that the high priority 
producer will overflow the dataflow stream because the consumer can fire only when free time 
is available. Having the producer put data on the dataflow stream regularly with the consumer 
using the data when time is available simply will not work. 

The last two constraints to be checked by the SDE involve the situation where a 
stream is produced by a non time-critical operator and consumed by a time-critical operator. If 
the consumer is triggered with BY ALL, the designer should be warned that possible overflow 
could result because if the producer gets enough time, it could produce new data for the stream 
before the next execution of the consumer has commenced. Finally, if the consumer is triggered 
with BY SOME, the designer should be warned that possible data loss could result because, just 
as before, the producer could get enough free time that it writes to the stream before the 
consumer reads the old data; the difference being that this time the old data would just go away. 

Table 4 below shows the semantic data trigger related checking that is 
accomplished by the SDE. As alluded to earlier, cases not discussed nor shown below are either 
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trivial ones that call for no conditional checking or those which require sporadic operators to be 
converted. As SDE does not do any converting of sporadic operators for semantic checking, 
these can not be checked. Those cases can be found, however, in reference [Ref. 11]. 




(Opl). Y 0P2 ) 

P = Periodic Operator 

S = Sporadic Operator 

NTC = Non Time-Critical 

Opl 

Op2 

Data Trigger 

Remarks 

p 

P 

ByAU 

If PERopi < PERop2 then ErroriProducer PER can’t be less than that of Consumer 

p 

P 

By Some 

If PERopi < PERop2 then Warning rPossible Data Loss 

p 

P 

None 

If PERopi < PERqp 2 then Warning:Possible Data Loss 

p 

S 

None 

Warning: Sporadic Consumer Operator will have MCP as default period 

s 

s 

None 

Warning: Sporadic Operators will have MCP as default periods 

p 

NTC 

ByAU 

Error: Possible Stream Overflow 

p 

NTC 

By Some 

Warning: Possible Data Loss 

s 

NTC 

ByAU 

Error: Possible Stream Overflow 

s 

NTC 

By Some 

Warning: Possible Data Loss 

NTC 

P 

ByAU 

Error: Possible Stream Overflow 

NTC 

P 

By Some 

Warning: Possible Data Loss 

NTC 

S 

ByAU 

Error: Possible Stream Overflow 

NTC 

s 

By Some 

Warning: Possible Data Loss 

NTC 

s 

None 

Warning: Sporadic Consumer Operator will have MCP as default period 






Table 4. Semantic Data Triggering Constraints to be done by SDE. 

c. Timing Constraint Semantic Checking 

The timing constraints attached to a time-critical operator are subject to multiple 
restrictions to ensure the possibility that the prototype is schedulable. As already mentioned, 
there are more than is described here; cases which fall in either the trivial or too hard category. 
Below is the first of several restriction that must hold. 

MET<FW<PER 
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If the MET was allowed to exceed the FW, the operator could use more CPU 
time than its deadline allows; this clearly can not be allowed. The second inequality must hold 
for a single CPU schedule because if the operator was allowed to finish after the period was 
over, it would delay the start of that operator’s next activation. 

The Maximum Execution Time Theorem [Ref. 11] states the following must hold 
for the set of all periodic operators in order that the prototype be schedulable on a uniprocessor. 

MAX (MET) < MIN(PER) 

This in no way guarantees that the prototype is schedulable; we only know that it 
isn’t if this is violated. There are two possibilities here. 

In the case where the same operator had constraints such that MET > PER, it 
would not be schedulable even with a multiprocessor; that case is covered above. 

In the second case, where the MET and PER belong to different operators, the 
constraint becomes apparent when you think about the fact that when violated and dealing with 
only one processor, the operator with the smaller PER will be blocked longer than the span of its 
PER while the operator (remember these are uninterruptable) with the larger MET executes. If 
the second operator is blocked longer than its PER, it can’t possibly make the deadline. So then 
it makes sense that the smallest PER must be greater than the largest MET. 

The first question that comes to mind is, “How many processors wiU do the 
job?”. This question is answered for periodic operators with the Load Factor, which is cited in 
many sources dealing with scheduling. It shows the minimum number of processors that will be 
required to schedule the prototype. 


1^£ (METx/PERx) 

Again, this does not guarantee schedulability. It only guarantees that without the 
number of processors specified, the prototype is not schedulable. Intuitively, this formula states 
that the larger the MET is with respect to its PER, the more utilization is required of the 
processor. This means, as they get closer to being equal, the operator gets closer to needing a 
processor aU to itself. 

Static scheduling requires having advance knowledge of the process behavior. 
This means all operators must be effectively periodic [Ref. 12], and further means sporadic 
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operators must be converted so that they have equivalent periods. The process of attaining the 
equivalent period is somewhat complex, and involves heuristics. The outcome is never greater 
than min[(MRT - MET), MCP], and so this can be used as an upper bound. Using this 
information and other theorems presented in reference [Ref. 11], the following constraint is 
required of all sporadic operators. 

2 X MET £ MRT, MET < MCP 

Presented thus far are the constraints that are imposed on otherwise valid time- 
critical operators. There are other timing constraints that are somewhat more intuitive. 

First, every time critical operator must have an MET so that the scheduler can 
know how much time must be allocated to the operator in the schedule. Therfore, if is an error 
for an operator to have a PER, FW, MCP, or MRT without a MET. 

Second, a time-critical operator must be periodic exclusive-or sporadic. This 
means it must be one or the other, but not both. Because of this, mixing constraints from both 
and having both is definitely an error. 

Table 5 below shows the semantic checking that can be accomplished by the 
SDE. Again, cases not shown in the table are either trivial, calling for no conditional checking, 
or require sporadic operators to be converted. As SDE does not currently do conversion of 
sporadic operators for semantic checking, these can not be checked. They can be found, 
however, in reference [Ref. 11]. 
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Y = Yes, is specified N = No, is not specified 


MET 

1 PERIODIC 

1 SPORADIC 


PER 

FW 

MRT 

MCP 

Rciiidiks 

N 

N 

N 

N 

N 

OK 

N 

N 

N 

N 

Y 

Error: Time-Critical Operators must have a MET 

N 

N 

N 

Y 

N 

Error: Time-Critical Operators must have a MET 

N 

N 

N 

Y 

aa 

Error: Time-Critical Operators must have a MET 

N 

N 

Y 

N 

In 

Error: Time-Critical Operators must have a MET 

N 

N 

Y 

N 

aa 

Error: Time-Critical Operators must have a MET 

N 

N 

aa 

Y 

N 

Error: Time-Critical Operators must have a MET 

N 

N 

Y 

Y 

Y 

Error: Time-Critical Operators must have a MET 

N 

Y 

N 

N 

N 

Error: Time-Critical Operators must have a MET 

N 

Y 

N 

N 

aa 

Error: Time-Critical Operators must have a MET 

N 

Y 

N 

Y 

In 

Error: Time-Critical Operators must have a MET 

N 

■■ 

N 

Y 

aa 

Error: Time-Critical Operators must have a MET 

N 

Y 

aa 

N 

N 

Error: Time-Critical Operators must have a MET 

N 

Y 

Y 

N 

Y 

Error: Time-Critical Operators must have a MET 

N 

Y 

Y 

Y 

N 

Error: Time-Critical Operators must have a MET 

N 

Y 

Y 

Y 

Y 

Error: Time-Critical Operators must have a MET 

Y 

N 

N 

N 

N 

Warning: MRT and MCP will take default values 

Y 

N 

N 

N 

Y 

Warning: MRT will default to MCP + MET 

Y 

N 

N 

Y 

N 

Warning: MCP will default to MRT - MET 

Y 

N 

N 

Y 

Y 

If N0T(2*MET<MRT, MET^CP) Then Error: Prototype will not schedule 

Y 

N 

Y 

N 

N 

Warning: PER will default to FW 

Y 

N 


N 

aa 

Error: Operators can not be both Periodic and Sporadic 

Y 

N 

3 

Y 

N 

Error: Operators can not be both Periodic and Sporadic 

Y 

N 

aa 

Y 

Y 

Error: Operators can not be both Periodic and Sporadic 

Y 

Y 

N 

N 

N 

Warning: FW will default to PER 

Y 

Y 

N 

N 

Y 

Error: Operators can not be both Periodic and Sporadic 

Y 

Y 

N 

Y 

N 

Error: Operators can not be both Periodic and Sporadic 

Y 

Y 

N 

Y 

Y 

Error: Operators can not be both Periodic and Sporadic 

Y 

Y 

Y 

N 

N 

If NOT(MET < FW < PER) Then Error: Prototype will not schedule 

Y 

Y 

Y 

N 

Y 

Error: Operators can not be both Periodic and Sporadic 

■a 

■a 

aa 

Y 

N 

Error: Operators can not be both Periodic and Sporadic 




Y 

Y 

Error: Operators can not be both Periodic and Sporadic 


Table 5. Semantic Timing Constrainst to be done by SDE. 
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C. MODIFICATIONS 

Modifications to the SDE are based on the additional functionality outlined in the last 
section. That functionality was summarized in Tables 4 and 5. 

1. Data Triggering Constraints 

When looking at the remarks of the Table 4, it is apparent that the data triggering 
constraints can be further simplified into five major points: 

1) When the producer and consumer operator are both periodic and connected by a 
dataflow stream, the PER of the producer must greater than or equal to that of the 
consumer, 

2) When the producer of a stream is time-critical and the consumer is not, if the 
consumer has a BY ALL trigger, overflow can result, 

3) When the producer of a stream is time-critical and the consumer is not, if the 
consumer does not have a BY SOME trigger, data loss can result 

There is some commonality about these rules that will be exploited in order to minimize 
the task of modifying the SDE. First each rule identifies a consumer or producer (or both) of a 
stream. Therefore, a structure will be needed to store whether an operator is a producer or a 
consumer. It will also need to keep track of whether the consumer operators have a trigger and 
what type it is. The rules also depend on the knowledge of whether or not the operator is time- 
critical. This means a set of time-critical operators must be created so they can be kept track of 
separately. Further, those time-critical operators must be broken down into a mutually exclusive 
set of periodic and sporadic operators. And one more piece of information about those operators 
that is needed is the value of its PER. The astute reader will note that sporadic operators do not 
have a PER. This means that the sporadic operator should be converted so that it will have an 
equivalent PER. 

Timing Constraints 

An inspection of the remarks of Table 5 will also bring to light some commonality that 
can be summarized. Those rules can be broken down into six major points: 

1) A time-critical operator must have a MET, 

2) A time-critical operator can not mix periodic and sporadic timing constraints, 

3) A time-critical operator with only one of its two timing constraints (FW and 
PER for Periodic and MRT and MCP for Sporadic) will have the unspecified 
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constraint set to a trivial, default value, 

4) An otherwise valid periodic operator must follow the specification of 
MET^W<PER or the prototype can not be scheduled, 

5) An otherwise valid sporadic operator must follow the specification of 
2*MET<MRT and MCP < MCP or the prototype can not be scheduled. 

Just as with the data triggering rules, these must be able to identify whether an operator is 
constrained. In addition, they must be able to determine the existence and value of any FW, 

PER, MRT, and MCP constraints. The next step is to define structures to hold the information 
deemed required above. 

2. Abstract Syntax Rule 

Summarizing the requirements of both the data triggering rules and the timing constraint 
rules three structures will be required. The name of each structure is in bold parenthesis. An 
edge set (edge_set) is needed to keep track of all edges. It will store the edge’s name, producer 
operator, consumer operator, and latency value. The latency is not needed for these rules, but it 
makes sense to keep it, as it could be used in future enhancements to the SDE. The second 
structure needed to support these rales is a constrained operator set (op_id_met_set). It will 
store the name of all operators that have a MET and the value of the MET, thereby identifying 
constrained operators. Finally, a structure will be needed to store all of the constrained operators 
and their constraints in a set (id_constraint_set). It will store the name of all constrained 
operators, their time constraints (per and fw for periodic operators, and mcp and mrt for sporadic 
operators), and type of trigger. 

The last two structures, which will be referred to as phyla from here on, look as though 
they should be combined. The first attempt at defining additional abstract syntax rules did in fact 
have these two together. The problem is that the MET exists in a separate section of the 
derivation tree than do the other timing constraints. Therefore, these two distinct phyla need to 
exist at the lower levels of the tree anyway. The three additional phyla required are displayed in 
Figure 44 below. The phyla not terminating here are further defined in the full abstract syntax 
rales of PSDL in Appendix B as a phylum or lexeme. REAL is a built in type. 
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list op_id_met_set; 
op__i d_me t_s e t 

: exported OpIdMetSetNil() 

1 exported OpIdMetPair(op_id_met op_id_met_set); 
op__id_inet 

: exported OpIdMetNull() 

I exported OpIdMet{operator_id met); 

met 

: exported MetNull{) 

I exported MET(REAL); 

/* - */ 

list id_constraint__set; 
id_constraint_set 

: exported IdConstraintSetNil() 

I exported IdConstraintPair(id__constraint id_constraint_set); 
id__constraint 

: exported IdConstraintNull() 

I exported IdConstraint(operator_id time_constraints trigger); 
time_constraints 

: exported OpConstraintsNull() 

I exported Periodic(per fw) 

I exported Sporadic(mcp mrt); 
trigger 

: exported TriggerByNull() 

I exported TriggerByAll () 
i exported TriggerBySome(); 

per 

: exported PerNullO 
I exported Per(REAL); 
fw 

: exported FwNullO 
1 exported FW(REAL); 

mcp 

: exported McpNull() 

1 exported MCP(REAL); 

mrt 

: exported MrtNull () 

! exported MRT(REAL); 

/* - */ 

list edge_set; 
edge_set 

: exported EdgeSetNilO 
i exported EdgePair(edge edge_set); 
edge 

: exported EdgeNullO 

I exported Edge(id latency producer consumer); 
latency 

; exported LatencyNull() 

I exported Latency(REAL); 
producer 

: exported ProducerNull() 
i exported Producer(operator_id); 
consumer 

: exported ConsumerNull() 

I exported Consumer(operator_id); 


Figure 44. Additional Abstract Syntax Rules for SDE. 


As tree representations are sometimes more familiar and easier to understand, these mles 
have been re-displayed in the trees of Figure 45 below. While it doesn’t contain as much 
information as the actual specifications, it may make quickly referencing the rules easier. 
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op_id inet_set 



op_id_inet op_id_met_set 


opCTatorJd 


REAL 


id constraint set 



id constraint 


id constraint set 


operatorjd tiine_constraints trigger 


fw mcp mrt 


REAL REAL REAL REAL 


edge_set 




edge_set 


id latency producer consumer 


REAL operatorjd operatorjd 


Figure 45. Addition Abstract Syntax Rules for SDE (2). 







3. Attribute Rules 

AU of the timing constraints ended up being represented as real numbers as opposed to 
the normal representation of integers with an unit (i.e. 90 milliseconds). These were represented 
as real so that no matter what number is given in the design, it could be converted to a default 
internal representation for comparison purposes. This means that when the auxiliary functions 
were defibned (Appendix E), there had to be one that converts the timing constraint 
representation within the old abstract syntax to real for compliance with this abstract syntax. 

With one exception, the attribute names are simply the same as the newly created 
phylum with the prefix syn or inh, depending on whether it is synthesized or inherited. The 
exception is the syn_vertex_id_met_set of type op_id_met_set. The word “vertex” was 
substituted in for “op” because, while they are the same thing, the previously defined abstract 
grammar used the term vertex. Therefore, the declared attribute name was changed. 

Earlier, it was stated that the MET and other timing constraints were established in 
different parts of the derivation tree. Figure 46 is a partial look at the abstract syntax rules for 
the PSDL SDE in tree form. On the tree the attributes equations required for the semantic 
checking outlined above are shown in bold type. Note where the MET information is located as 
opposed to where the timing constraint information is (typed within parenthesis at the bottom of 
the figure). The MET is defined under a_vertex, the edge constraints under an_edge, and the 
timing constraints under a_constraint. Therefore, that is where the synthesized attributes had to 
start. While the synthesized attributes bubble up the tree, the inherited attributes sink down the 
tree. This is evident when looking at the Figure 46. The vertex_id_met_set bubbled up starting 
at the vert_list phylum, continuing on to the graph phylum and then on to the operator_impl 
phylum where it is copied to the inh_vertex_id_met_set attribute at the operator_impl phylum. 
From there, it begins sinking on the right side of the tree; first to the cc phylum and then to the 
constraints phylum where it can be used for semantic checking. 
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prototype 

$$.syn vertex id_met_set = psdl_ci|mponents.syn vertexjd met_set; 
$$.syn3d_constralnt_set = psdl^cojhponetits.synJdjconstraTntjset; 


psdl_components 


$$,syn_vertexjd_met_set = Op Id_Met_Set_Unlon(componeni 
$$.synJd_constralnt_set - Id_Cbnstraiirt_Set_lInlon(compm ^ 



;_ld_met_set, psdl components$2,syn_vertexJd_met_set); 
;onstraint_set) psdf components$2.syir ld_constralnt_set); 


psdI_components 


comp^ent 

$$.syn_vertexJd_met__set 3 .j 0 jp?ratoK(mpl,syn vertex_td met_set; 
$$.syn_id_constralrit>B4:^peraotr_lmp^yn_rd_constraTnt_set; 


C data_type3 


operator ^ 


id operator_spec op erator im pl 
$$.syn_ 


,jertexJd__met_set; 


00 



$$^yn__vertexJdmfil<s€r^^ft!‘t^jMlst.syn_vertex_ld_met_set; 
$$»syn_edg^B«f^edgeJlst.syn_ea|fcN;5^ “ 
vertex list edge list 

i$.syn_vertex_ld_met_se^^ $$.sy/\dge_set = 

Op Id Set Unfon(Get4d Met Set(a_vertex), Edire”l«t Union(Get Edge Set(an edge), 

* * * " ' “ edgejlst$l.syn_eflge__set); 


edgejist 


operator_idoptional_timc latencyjime from_vertex_id to_vertex„id 



declarations 


$$.8yn_ld constralnt_set = conwahi^synJd_constrafnt_set; 
constraliits.inh_vertexJd ni«_set = WUnh^vertexJd met set; 

constraints o_infonnal_desc 


jnt(a_constraint) || All^Or Somejrr!gger(a_constralnt)) 
[raln^Set(a_constraint, $$rtnh_vertexjd_met_set), 
nJd_constraint_set) 



$$.8yn id constraint set = (Valid_T l 
7 l3_<Tonstraint_S^et_Union(Get_l^ 
constjr 

: con$tralnts$2.syn_id_constraip 
a_constraint.inh vertexjd n 
con$traints$2.inir vertex id* i 


(TRIGGER) 


time 

(MET) 


time operatorjd operatorJd 


operatorjd optional_trigger optionaLperiod optional_finish_within optional_mcp optionaLmit output_guards 

exception_ops 

timerjoperations 

time reqmts_trace time reqmtsjrace time reqmts^trace time reqmtsjrace 
(PER) (FW) (MCP) (MRT) 


/A A A A 


Figure 46. Abstract Syntax with Attributes Equations. 



While it seems a little backwards to show the attribute equations before the attribute 
declarations, it was done to not only demonstrate what the attribute equations are but more 
importantly show graphically where they must exist. 

Recall that all synthesized attributes are built at the lower levels and then passed up the 
tree. Also, realize that in lists, every set of attributes, which are defined by the equations in the 
figure, will exist once for each occurrence in that list. PsdLcomponents, for example, is 
composed of a component and another psdl_components (psdl_components$2). The equations 
under the phylum component (shown in the figure) will synthesize all of its attributes for the 
mentioned component (shown in the figure) and again for every other component in 
psdl_components$2, recursively. Therefore, at the component phylum, the set of id_constraints, 
for example, will be only the ones within that component (its children). At the prototype 
phylum, however, there will be one set and it will contain all of the id_constraints within the 
prototype. 

The edge_set didn’t need to be collected into one single set for all of them, so it was not 
synthesized up to the prototype phylum. It stopped at the operator_impl phylum, which then had 
all of the edges for its child operators. In fact, the semantic checking requires aU of the attributes 
to be collected at the operator_impl phylum. After all, the best place to check and subsequently 
notify the designer of a problem is at the component where the problem exists. The reason that 
the other two attributes (id_met_set and id_constraint_set) are synthesized aU the way up to the 
prototype phylum is so that the number of processors required could be determined. It was 
decided that the Load Factor equation would be used to determine how many processors are 
required by the design. This, of course, necessitates having all of the MET’s and PER’s in one 
place. What this also calls for, is being able to convert the sporadic operators. Because there was 
not enough time to do that function, the number of processors required is only based on periodic 
operators. The display on the editor must state this disclaimer. 

Figure 47 below shows both the attribute declarations and equations for the synthesized 
and inherited attributes. The local attributes and equations for semantic checking will be 
discussed next along with the required additions to the attribute rules. 
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prototype/ psdl_coinponents, component {syn op_id_jTiet_set syn_vertex_id_jnet_set;}; 

prototype/ psdl^componentS/ component {syn id_constraint_set syn_id_constraint_set;}; 
operator_impl/ graph/ vertex_list {syn op_id_met_set syn_vertex_id_met_set;}; 

operator_impl/ graph/ €dge_list {syn €dge_set syn_edge_set;); 

operator_impl/ CC/ constraints {syn id_constraint_set syn_id_constraint_s€t;}; 

cc/ constraints, a_constraint {inh op_id_met_set inh_vertex_id_met_set; 

prototype 
: Prot 

{$$.syn_vertex_id_met_set = psdl_components.syn_vertex_id_met_set; 

$$.syn_id_constraint_set = psdl_components.syn_id_constraint_set;}; 
psdl^components 
: PsdlNil 

{$$.syn_v€rtex_id_met_set = OpIdMetSetNi1; 

$$.syn_id_constraint_set = IdConstraintSetNil?} 
i PsdlPair 

{$ $.syn_vert ex_id_met_set = Op_Id_M€t_Set_Union(component.syn_vertex_id_met_set, 

psdl_components$2.syn_vertex_id_met_set); 

$$.syn_id_constraint_set = Id_Constraint_Set_Union(component.syn_id_constraint_set, 

psdl_components$2.syn_id_constraint_set);); 

component 

: NoComponent 

{$$.syn_vertex_id_met_set = OpIdMetSetNi1? 

$$.syn_id_constraint_set = IdConstraintSetNil;} 

I Op 

{$ $.syn_V€rt ex_id_met_set = operat or_impl.syn_vertex_id_met_set; 

$$.syn_id_constraint_set = operator_impl.syn_id_constraint_S€t;} 
t Data 

{$ $.syn_vertex_id_met_set = OpIdMetSetNi1; 

$$ .syn_id_constraint_set = IdConstraintSetNil;},- 
operator_impl 

: OpImplNull/ AdaOpImpl 

{$$.syn_vertex_id_met_set = OpIdMetSetNi1; 

$$.syn_edge_set = EdgeSetNi1; 

$$.syn_id_constraint_set = IdConstraintSetNil;} 
i OperatorImpl 

{$ $.syn_vertex_id_jnet_set = graph.syn_vert ex_id_met_set; 

$$.syn_edge_set = graph.syn_edge_s€t; 

$$.syn_id_constraint_set = cc.syn_id_constraint_set; 
cc.inh_vertex_id_met_set = $$.syn_vertex_id_met_set;}; 

graph 

: GraphNull 

{$$.syn_v€rtex„id_met_set = OpIdMetSetNi1; 

$$.syn_edge_set - EdgeSetNi1;} 

[ Graph 

{$$.syn_vertex_id_met_set = vertex_list .syn_vert€x_id_met_set; 

$$. syn_edge_set = edge_l ist. syn_edge_set;}; 

vertex_list 

: VertexListNull 

{$ $. syn_vertex_i d_m€t_set == OpIdMetSetNi 1;} 

1 VertexListPair 

{$$.syn_vertex_id_met_set = Op_Id_M€t_Set_Union(G€t_Id_Met_Set (a_vertex), 

vertex_list$2-syn_vertex_id_met_set);}; 

edge_list 

: EdgeListNil 

{$ $. syn_edge_set = EdgeSetNi 1 ,*} 

I EdgeListPair 

{$$.syn_edge_set = Edge_Set_Union(Get_Edge_Set(an^edge), 

edge_list$2.syn_edge_set};}; 
cc 

; CcNull 

{$$.syn_id_constraint_set = IdConstraintSetNil;} 
i Cc 

{$$.syn_id_constraint_set = constraints.syn_id_constraint_set; 
constraints.inh_vertex_id_met_set = $$.inh_vertex_id_met„set;}; 
constraints 

: ConstraintsNull 

{$$.syn_id_constraint_set = IdConstraintSetNil;} 
t ConstraintsPair 

{$$.syn_id_constraint_set = (Valid_T„Constraint (a_constraint} !l All_OR_Soitie_Trigger (a_constraint) } 
? ld_Constraint„Set_Union(Get_Id_Constraint_Set{a_constraint/ $$.inh_vertex_id_met_set}, 

constraints$2.syn_id_constraint_set) 

: constraints$2.syn_id_constraint_set; 
a_constraint. inh_vertex_id_met_set = $$. inh_vertex_id_met_set ; 
constraints$2.inh_vertex_id_met_set = $$.inh_vertex_id_met_set;}; 


Figure 47. Synthesized and Inherited Attribute Equations of Attribute Rules. 


Because the amount of code for implementing the local attributes, equations and 
auxiliary functions for the semantic checking required is large, only part of the changes to the 
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SDE will be shown here. Appendix C contains a full listing of the PSDL SDE Attribute Rules, 
including those added by this tiiesis. The additions to the operator_impl phylum are significant 
enough to show some of the work done. It is represented in Figure 48. 


operator_iinpl 

: OpImplNull, AdaOpImplO 
I Operatorlmpl 

{local BOOL producerop_period_le_cons\imerop_error; 
producerop_period_le_consutnerop_error = 

{Is_ProducerOp_P€riod_LE_ConsumerOp{$$.syn_edge_set, 

$$ .syn_id_constraint._set)) ; 
local STR producerop_period_le_consuinerop_insg; 

producerop_period_le_consuinerop_msg = (producerop_period_le_consuinerop_error) 
? '\n* 

# iFor any edge, the Producer’s PeriodVn" 

# ■— must exceed that of the Consumer-* 

/*-:- 1 -♦/ 

local BOOL sporadic_consumerop_wo_trigger_error; 
sporadic_consumerop_wo_trigger_error s 

(Is_Sporadic_ConsumerOp_wo_Trigger($ $.syn_edge_set, 

$$.syn_id_constraint_set)); 

local STR sporadic_consuinerop_wo„trigger_msg; 
sporadic_consumerop_wo_trigger_insg = 

(sporadi c_consujmerop_wo_t r igger_error) 

? -Xn* 


# ■— 5For any edge, if the Consumer is\n* 

# ■— Sporadic, it must have a Trigger.* 

/*--*/ 


local BOOL constr_producerop_and_unconstr_consumerop_w_trigger_error; 
constr_producerop_and_unconstr_consumerop_w_trigger_error = 

(Is^Constr_ProducerOp_And_Unconstr_ConsumerOp_W_Trigger($ $ -syn_edge_set, 

S$.syn_vertex_id_met_set, 
$$.^n_id_constraint_setj ) ; 

local STR constr_producerop_and_unconstr_consumerop_w_trigger_msg; 
constr_producerop_and_unconstr_consumerop_w_trigger_msg = 
(constrjproducerop_and_unconstr_consumerop_w_trigger_error) 


? 'Xn* 

# •— !For any edge, if the Producer is constrained,Xn* 

# ‘— an unconstrained Consumer can not have a Trigger.* 

/* - : — : - */ 


local BOOL unconstr_producerop_and_constr_consumerop__w_byall_error; 
unconstr_producerop_and_constr_consumerop_w_byall_error = 

(Is_Unconstr_ProducerOp_And_Constr_ConsumerOp_w_ByAll{$$.syn_edge_set, 

$$-syn_vertex_id_met_set, 
$$.syn_id_constraint_set)); 

local STR unconstr_producerop_and_constr_consumerop_w_byall_msg; 
unconstr_producerop_and_constr_consumerop_w_byall_msg = 

(unconStr_producerop_and_constr_consumerop_w_bya1l_error) 

? -Xn* 

# *— !For any edge, if the Producer is unconstrained,Xn* 

# •— a constrained consumer triggered By^AllXn* 

# *— can result in Overflow.* 

/♦ - : - : - */ 

local BOOL unconstr_producerop_and_constr_consumerop_w_bysome_error; 
unconstr_producerop_and_constr^consumerop_w_bysome_error = 

(Is_Unconstr_ProducerOp_And_Constr_ConsumerOp_W_BySome($$.syn_edge_set, 

$$ - syn_vertex_id_met_set, 
$$.syn_id_constraint_set)); 

local STR unconstrjproducerop_and_constr_consumerop_w_bysome_msg; 
unconstr_producerop_and_c on s tr_con sumerop_w_bysome_msg = 

{unconst r_producerop_and_const r_consumerop_w_by some_error) 


? 'Xn* 

# *— !For any edge, if the Producer is unconstrained,Xn* 

# *— a constrained consumer triggered By_SomeXn* 

it “— can result in Data loss.* ~ 

/* - : — : -*/ 


local BOOL hds_error; 
has_error = 

(producerop_period_le_consum€rop_error I| 

sporadic_consumerop_wo_trigger_error I[ 

constr_producerop_and_unconstr_consumerop_w_trigger_error I[ 
unconstr_producerop_and_constr_consumerop_w_byall_error 1 I 

unconstr_producerop_and_constr_consumerop_w_bysome_error); 
local STR error_header; 
error_header = {has_error) 

? ‘Xn* 

------Xn* 

#•-- SCHEDULING NOTICE:* 

local STR error_trailer; 
error_trailer s (has_error) 

? ‘Xn* 

- . 


Figure 48. Local Attributes and Equations for operatorjmpi Phylum. 












The code is fairly straight forward and separated into sections divided by dashed lines. 
Which section implements which semantic check can be quickly determined by looking at one 
of the two possible string values that are assigned. Each correspond with the remarks of Table’s 
4 & 5, and are mentioned again at the beginning of this section. The last section in Figure 48 
merely sets up the header and trailer if any of the previous constraint checking variables are trae 
(indicating violation). 

Many functions are referenced in the last two figures. The previously existing auxiliary 
functions are listed in Appendix D, while the auxiliary functions written in support of this thesis 
are in Appendix E. Recall that function names, for the conventions here, are mixed upper and 
lower case with underscoring; i.e. This_Is_A_Function_Name. 

To ensure that the functions are understood, one will be covered here. The first section of 
code in the last figure checks to ensure that for any edge, if the consumer operator’s period is 
greater than or equal to the producer’s, an appropriate error message is displayed. The boolean 
variable is set to true, setting the displayed string to the error message vice null, if the function 
Is_ProducerOP_Period_LE_ConsumerOP returns true. This is a boolean function that takes two 
arguments (operator_impl.syn_edge_set, operator_impl.syn_id_constraint_set), and is displayed 
in Figure 49. 


BOOL exported 


Is_ProducerOp_Period_LE_ConsumerOp (edgG_set es, 

id_constraint_set cs) { 


with(es) ( 

EdgeSetNil: false, 

EdgePair(hd, tl) ; 
with(hd) ( 

EdgeNull: Is_ProducerOp__Period_LE_ConsumerOp(tl, cs), 

Edge(*, *, p, c): 
with{p} ( 

ProducerNull: Is_ProducerOp_Period_LE_ConsumerOp(t1, cs), 

Producer(p_opid): 
with(c) ( 

ConsumerNul1: Is_ProducerOp_Period„LE_ConsumerOp{tl, cs), 

Consumer(c_opid): 

{Get_Period(p_opid, cs) == PerNull I I 
Get_Period(c_opid, cs) == PerNull ) 

? Is_ProducerOp_P€riod_LE_ConsumerOp(tl, cs) 

: (Get_Period(p_opid, cs) <= Get_Period{c_opid, cs)) 

? true 

: Is_ProducerOp_Period_LE_GonsumerOp(tl, cs) 

) 

) 

) 


) 

); 


Figure 49. Auxiliary Function. 


As mentioned in chapter three, if not familiar with recursion, this would be a good time 
to review. Most of the functions take on this same format. The keyword “with” is used like a 
case statement that covers all of the operators of the with’d phylum, and most of them 
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recursively search sets such as the edge_set or id_constraint_set When looking at a function 
such as this, ensure that the phylum description (abstract syntax) of the attributes passed in are 
close by. This makes reading the function much easier. 

The displayed function first looks at the edge_set. If it is nil (empty), the answer is false 
(there is no edge in error). If the set is not empty, the first edge or the head (an_edge) is pulled 
off and its producer and consumer operatorjd’s are determined. Then, the function Get_Period 
is used with those operator_id’s to return the period’s of each and are compared to see if either 
is null. If that is the case, or if a nuUary value is hit prior to this point, the function is simply 
called again with the same id_constraint_set and the rest of, or tail of the edge_set. If there are 
two valid periods assigned, they are checked to ensure that the producer’s exceeds the 
consumers. If not, true is returned (thus an error). If so, once again, the function is called with 
the tail of the edge_list. This will continue until an error is reached or until the end of the list is 
reached when EdgeSetNil is found and false is returned. 

4. Unparsing Rules 

The unparsing rules only called for a few additions. Recall, theses are the specifications 
that control what is displayed by the editor. The only items that must be displayed and weren’t 
already are the additional local string attributes that were defined in the attribute rules to either 
display the error that exists or a null value when no error exists. 

Figure 50 shows the unparsing for the operator_impl phylum because that is the one 
displayed with its attributes in the last figure. Notice that all of the local string attributes 
declared and built in the attribute rules are displayed under the operator named Operatorimpl. 
The various views represent different unparsing schemes so that what is seen by the user 
depends on which view is being displayed and multiple views can be displayed at once if 
desired. Also notice that comments are placed after each placeholder to help identify which 
phylum is represented by that placeholder. 
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operator^impl 


: OpImplNull 
[SDE^VIEW, 

I AdaOpImpl 
[SDE_VIEW, 
: 


SHOW_GRAPH_TEXT_VIEW @ : ^^rKOperator implementation>"] 

SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLy_VIEW, IMPL_ONLY_VIEW 
= "%nIMPLEMENTATION ADA " @ "%n%t'‘ "%b%nEND''] 


1 


" %nIM PLEMENTATION“ 


Operatorlmpl 

[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW 
@ /*graph*/ 

error_header 

producerop_period_le_consumerop_msg 
sporadic_consumerop_wo_trigg€r_msg 

constr_producerop_and_unconstr_consumerop_w_trigger_insg 

uncons tr_producerop_and_conStr_c on sumerop_w__bYa1l_msg 

unconstr_producerop_and_conStr_c onsumerop_w_bysoine_msg 


error_trailer 

^ /*declarations*/ 

@ /*cc*/ 

"%nEND"] 

[BASEVIEW, SPEC_ONLY_VIEW, IMPL_ONLY_VIEW •%nIMPLEMENTATION“ 

© /*graph*/ 

^ /*declarations*/ 

© /*cc* 

nnEND"] 


Figure 50. Unparsing Rules for operator_inipl Phylum. 


5. Transformation Rules 

The transformation rules of the SDE were not modified by this thesis and therefore are 
not discussed here. Appendix F has the transformation rules for the PSDL SDE. 

6. Concrete Rules 

The concreted rules were not modified either and therefore are not discussed but are 
fully listed in Appendix G. 


D. TESTING 

In the beginning of this chapter, a prototype was developed to give an example on how to 
use the SDE. Lets see how the new editor reacts with the same prototype. Particularly of 
interest is how the editor reacts when entering the timing constraints. For that reason, Figure 36 
is repeated below. 
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OPER^R EvaluateJTemp 
SPECIPICAnON 
INPUT 

Tei^eirature : FLOAT 
OUTPUT 

Cool_Signal : FLOAT, 

Heat_Signal ; FLOAT 
MAXTHUX EEECUnOK TIKE 200 MS 

END 

<Qperator i]i^lementation> 

OPERATOR Heater 
SPECIFICATION 
INPUT 

Heat_SignaI : FLOAT 

END 

<operator ijRpleinentation> 

OPERATOR Seneor 
SPECIFICATION 
OUTPUT 

Tes^erature : FLOKS 
MAXIMUM EXECUTION TIME 175 MS 

END 

<operator iaiplementation> 


SPECIFICmON 

END 

IMPLEMENTATION 

GRAPH 

“ see graph viever for details 

Dm STREAM 
Cool_Signal : FLOAT, 

Heat^Signal : FLOAT, 

Teinperature : FLOAT 
CONTROL CONSTRAIiniS 
OPERATOR Cooler 

OPERATOR Evaluate_TeBp 
PERIOD 210 MS ^ 

FINISH 205 MS"^^ 

OPERATOR Heater | 

OPERATOR Senso ^ 

PERIOD 190 MS ^ _ 

FINISH 185 MS*^ 


New Control Constraints 


Figure 36. Complete PSDL Program with Control Constraints (Repeated). 

The same constraints will be inserted into the prototype just created. Notice in Figure 51 
that when inputting the PER for operator Evaluate_Temp, a message comes up and states that 
if left unspecified, FW will default to PER. It will do this for PER, FW, MRT, and MCP. 



CflPS-Cndc File Edit Vieu Toole Options Structure Tex( 


OPERATOR Cooler 


OPERATOR Evaluatc_Tettp 


•>- SCHEDULING NOTICE: 

— !lf left -unspecified, 

— Finish_Within will default to Period. 

PERIOD .g?p.r.y 3 .?.. i9n > 

[requirements trace] 

OPERATOR Heater 

OPERATOR Sensor 


Context: tine Tine_Expression 



Figure 51. SDE with Default Message. 


85 



















































Going further, the PER and FW is input for the Evaluate_Temp operator. So far, so good. 
The editor does not complain, so the Sensor operator is given the PER constraint defined 
earlier. As soon as the return key is hit, as Figure 52 indicates, the editor gives the familiar 
default message, but there is another message. The new scheduling notice states that the PER 
of the producer of a stream must exceed that of the consumer. This constraint, under the old 
editor, would have gone un-noticed until translated and scheduled, thereby eating up a great 
deal of time. Not to mention the fact that the designer may no longer have this information 
fresh in his or her memory. 



EPig 









IBIi 



IHiil 


£ND 

IKPIJEMElITmON 

GB2FH 

— aee gra^jh vievcr for details — 


- SCHEDDLIHG NOTICE: 

- !Por any edge, the Producer's Period 

- Kust exceed that of the Consumer. 

nATA STREiH 

Cool_Signal : FLOAT, 

Heat_5ignal : FLOAT, 

Teigierature : FLOAT 
CONTROL CONSTRAINTS 
OPERATOR Cooler 

OPERATOR Evaluate^Tcag) 

PERIOD 210 MS 
FINISH 20S MS 

OPERATOR Heater 

OPERATOR Sensor 

— SCHEDULING NOTICE: 

-- !lf left unspecified, 

— Finish Within vill default to Period. 



Figure 52. SDE with PER Constraint Error. 


But wait, there is another message. This prototype, because of the way the constraints 
were assigned will not run on a uniprocessor. The message at the top of the editor, based on the 
Load Factor discussed earlier, states that the prototype will require at least 2 processors to 
schedule. Apparently each operator was constrained in such a way that they both will require a 
processor of their own. Figure 53 shows the message at the top of the editor. This illustrates a 
very good point made earlier. As discussed in the beginning of this thesis, scheduling hard real¬ 
time systems is very difficult. If this system were real and had to run on a single CPU, we 
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would have already blown it The designer needs quick feedback as to whether the design will 
work or not If this isn’t provided, a great deal of time could be spent on a design that is 
impossible to implement, before the designer realizes it can’t work. The other semantic checks 
display error messages such as the ones shown thus far. All of the checks outlined in Table 4 & 
5 earlier have been implemented and their message reads very much like the remarks of the 
tables. It is up to the reader to experiment with the SDE to see all of them for one self. 


CflPS-Cnds File Edit Vieu Tools Options Structure Tex!: 


— Q&BNINGS, ERRORS AND ALERTS; 

— !Prototype vill not schedule for less than 

— 2 processors. (Based on Periodic Operators only) 


I OPERATOR Cooler 
SPECIFICATION 
INFOT 

Cool^Signal ; FLOAT 

END 

<operator uq)leaentation> 

OPERATOR EvaluateJTemp 
SPECIFICATION 
INPUT 

Temperature : FLOAT 
OOTTDT 

CooI_Si 9 nal : FLOATi 
Heat_Signal : FLOAT 
MAXIMUM EXECUTION TIME 200 MS 

END 

< operator implenentation> 

OPERATOR Heater 
SPECIFICATION 
INPUT 



Figure 53. SDE with number processors required message. 
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V. FUTURE RESEARCH AND DEVELOPMENT 

One of the biggest obstacles to new tools is acceptance by new, potential users. The 
learning curve plays a major part of this. If the tool is too difficult to use, no matter how good it 
is, most will reject it. For this reason, more and more time is being spent on developing good 
user interfaces as well as developing good tools. 

Learning how to use the SDE not a trivial task and many are intimidated by it at first. 

The graphical editor, however, comes somewhat natural to most users. The CAPS tool-set 
would be embraced more strongly if the input functionality was moved to the graphical editor. 
Users would not have to learn to use a new editor nor would they have to learn a new language 
(PSDL). Information could be taken from and presented to the designer in a more intuitive 
fashion. 

The information that is currently input via the graphical editor is propagated to the SDE. 
Research should to be done to determine how much more of this propagation can be achieved 
going in both directions between the derivation tree of the SDE and the graphical editor. The 
goal should be such that not only will the Graphical Editor account for all (or as much as 
possible) of the input, but well formed messages should be displayed back to the designer while 
still in the Graphical Editor. A separate window, perhaps utilizing TAE+, could be designed for 
displaying both the feedback messages that currently exist within the SDE and those of future 
implementations. 

The display of how many processors are required to schedule the prototype can be 
particularly useful to the designer. Because the SDE can not convert the sporadic operators to 
have an equivalent period, it is not as accurate as could be. Some research should be devoted to 
whether or not this can be effectively done within the editor. 

Additional checking that could be accomplished with the attributes already gathered 
include testing for constrained operators that have unconstrained children. Also, using the edges • 
and operator MET’s, each thread under a parent operator could be checked to ensure its total 
required execution time does not exceed that of the parent 

Other checking that can be accomplished is the verification of streams that are built 
during decomposition. For example if a parent operator has an external stream coming in and 
two regular streams coming out, when it is decomposed, the graph editor shows those 
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connections at the bottom as a reminder. If the designer doesn’t include them or puts additional 
incoming or outgoing streams in, there are no warnings upon returning to the SDE. This 
inconsistency should not be allowed and can be tracked with the current edge attributes captured. 

Many of the templates displayed in the help pane (menu window) should not be there. 
For example, the designer could pick psdl_implementation out of the help pane to replace the 
placeholder <operator implementation>. This does not work well and really shouldn’t be an 
option to the designer. If the operator is to be implemented with PSDL, that should be done 
within the graphical editor. The same holds for input and output stream. It is more confusing to 
the new users of the SDE to have those displayed. Research should be done on what parts of the 
display can be removed for a more clear implementation of the editor. 
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APPENDIX A - PSDL Grammar 


= (component) 

component 

= data_type 
I operator 

data_type 

= "type" id type_spec type_impl 
type_spec 

= "specification" ["generic" type_decl] [type_decl] 

("operator" op_name operator_spec) 

[functionality] "end" 

operator 

= "operator" op_name operator_spec operator_impl 
operat or_spec 

= "specification" (interface) [functionality) "end" 
interface 

= attribute [reqmts_trace] 
attribute 

= "generic" type_decl 
I "input" type_decl 
I "output" type_decl 

I "states" type_decl "initially" initial_expression_list 
I "exceptions" id_list 
I "maximum execution time" time 

type_decl 

= id_list ":" type_name (",“ id_list type_name) 

type_name 
= id 

I id "(" type„decl “]" 

id_list 

= id ("," id) 

reqmt s_t race 

= "required by" id_list 

functionality 

= [keywords] [informal_desc] [formal_desc] 
keywords 

= "keywords" id_list 
informal_desc 

= "description" "(" text ")" 
formal_desc 

= "axioms" text ")" 

type_impl 

= "implementation ada" id "end" 

! "implementation" type_name ("operator" op_name operator_impl) 
operator_impl 

= "implementation ada" ada_op_name "end" 


i "implementation" psdl_impl "end" 
psdl__impl 

= data_flow_diagram [streams] [timers] [control„constraints] 
[informal_desc] 

data_flow_diagram 

= "graph" (vertex) (edge) 

vertex 

= "vertex" op_id [":" time] 

— time is the maximum execution time 


= "edge" id [";" time] op_id op_id 

-- time is the latency 

op_id 

= [id ".“] op__name ["(" [id_list] "j" [id_list] ")"] 
streams 

= "data stream" type_decl 
timers 

= "timer" id_list 
control_constraints 

= "control constraints" constraint (constraint) 

constraint 

= "operator" op_id 

("triggered" [trigger] ["if" expression] [recents_trace]] 
["period" time [reqmts_trace]] 

("finish within" time [reqmts_trace]] 

["minimum calling period" time [reqmts_trace]] 

["maximum response time" time [reqmts_trace]] 

(constraint_options) 

const raint_options 

= "output" id_list "if" expression [reqmts_trace] 
i "exception" id ("if" expression] [reqmts_trace] 

I timer_op id ("if" expression] [reqmts_trace] 

trigger 

= "by all" id_list 
i "by some" id_list 

timer_op 

= "reset timer" 

I "start timer" 
i "stop timer" 


initial_expression_list 
= initial_expression {" 


initial„expression) 


initial_expression 
= "true" 

I "false" 

1 integer_literal 
I real_literal 
I string_literal 
I id 

I type_name op_name ("(" initial_expression_list ")“] 









APPENDIX A - PSDL Grammar 


I 

! 

I 


"{*' initial_expression ") " 

initial_expression binary_op initial_expression 
unary_op initial_.expression 


"a . . 
”A . . 


z" 


Z" 


binary_op 

= "and" I "or" I "xor" 

I I ->" I ■• = " i ">=" I ■■< = " I v = " 

I « + « j »_H I M5.H j I M/M I "mod" I "rem" 

unary_op 

= "not" i "abs" ! | 

time 

= integer_literal unit 


alpha_numberic 
= letter 
I digit 

text 

{char} 


unit 

= "microsec" 
t “ms" 

I "sec" 

I "min" 
j "hours" 


expression_list 

= expression expression) 

expression 
= "true" 

I "false" 

I integer_literal 
I time 

I real_literal 
I string_literal 
I id 

I type_name op_name ["(" expression_list ")"] 

I "{" expression ")" 

1 initial_expression binary_op initial_expression 
I unary_op initial_exprGssion 

op_name 

= ada_op_namG integer_literal 

ada_op_namG 

= id integer„literal 


id 

= letter (alpha_numeric} 
real_literal 

= integGr_literal integer_literal 

integer_literal 
= digit {digit) 

string_literal 
= . (char) """ 


char 

= any printable character except “)" 
digit 

= "0 .. 9" 
letter 
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root prototype; 


/* TOKEN DEFINITIONS */ 

/* definitions for unformatted text */ 


CLINEBREAK: 
CLINE: 

LCURLY; 

RCURLY: 
WHITESPACE: 

/* _ 

CLinebreak Lex«NO_WH ITES PACE> 
CLineLex< <NO_WHITESPACE> [^\i 
LCurly<[\{] <NO_WHITESPACE> > 
RCurly< [\)] <INITIAL> >; 
V7hiteSpaceLex< [\ \t\n) >; 

DESCRIPKW: 

DescripKwLex<"DESCRIPTION" > 

IMPUTKW: 

|<"description" >; 

<"INPUT" > 

OUTPUTKW: 

) <"input" >; 

<"OUTPUT" > 

EXCEPTIONSKW: 

! <"output" >; 

<"EXCEPTIONS" > 

EXCEPTIONKW: 

1 <"exceptions" > ; 

<"EXCEPTION" > 

AXIOMKW: 

1 <"exception" >; 

<"AXIOMS" > 

ADAKW: 

1 <"axioms" >; 

<"ADA" > 

INTKW: 

|<"ada" >; 

<"INTEGER" > 

REALKW: 

|<"integer" >; 

<"REAL" > 

BOOLKW: 

|<"real" >; 

<"BOOLEAN" > 

TRUEKW: 

|<"boolean" >; 

<"TRUE" > 

FALSEKW: 

|<"true" >; 

<"FALSE" > 

MICRO: 

|<"false" >; 

<"MICROSEC" > 

MS: 

|<"microsec" >; 

MSLex<"MS" > 

SEC; 

1 <''ms" >; 

SECLex<"SEC" > 

MIN: 

|<"sec" >; 

MINLex<"MIN" > 

HOURS: 

|<"min" >; 

HOURSLex<"HOURS" > 

NOTKW: 

|<"hours" >; 

NOTLex<"NOT" > 

ANDKW: 

|<"not" >; 

AndLex<"AND" > 

ABSKW: 

|<"and" >; 

ABSLex<"ABS" > 

GTEKW: 

l<"abs" >; 

GTELex<">=:" >; 

LTEKW: 

LTELex<"<=" >; 

NEQVKW: 

NEQVlex<"/=" >; 

REMKW: 

REMLex<"REM" > 

|<"rem" >; 

MODKW: MODLex<"MOD" > 

1 <"mod" 

>; 

EXPKW; 

EXPLex<"EXP" > 


Abstract Rules 


|<"exp'‘ > 

!<"**“ >; 

ENDKW: ENDLgx<"END'* > 

|<"end" >; 

TYPEKW: TypeLex<“TYPE" > 

|<"type" >/ 

OPERATORKW; OperatorLex<"OPERATOR" > 

I<"operator" >; 

SPECKW; SpecificationLex<"SPECIFICATION" > 

I<"specification" >; 

GENERICKV/: GenericLex<"GENERIC" > 

I<"generic" >; 

REQBYKW: ReqByLex<"REQUIRED\ BY" > 

|<"required\ by" >; 

STATESKV/: StatesLex<"STATES" > 

I<"states" >; 

INITIALKV7; InitiallyLex<"INITIALLY" > 

|<"initially" >; 

ORKW: OrLex<"OR" > 

I<"or" >; 

XORKW: XorLex<"XOR" > 

I<"xor" >; 

KEYWKV/: KeyV7ordsLex<" KEYV/ORDS “ > 

I<"keywords" >; 

IMPLKW: ImplementationLex<"IMPLEMENTATION" > 

I<"implementation" >; 

GRAPHKW; GraphLex<"GRAPH" > 

I<"graph" >; 

VERTEXKVJ: VertexLex<"VERTEX" > 

I<"vertex" >; 

ARROV'7KW: Arrov;Lex<"->" >; 

EDGEKW: EdgGLex<"EDGE“ > 

I <"edge" >; 

DATSTRKW: DataStreams Lgx< "DATA\ STREAM" > 

}<"data\ stream" >; 

TIMERKW: TimerLex<"TIMER" >; 

CONTROLKV7: ControlLex<*CONTROL\ CONSTRAINTS" > 

i<"control\ constraints" >; 

TRIGGERBYKW: TriggerByLex<“TRIGGERED\ BY" > 

I<"triggered\ by" >; 

TRIGGERKW: TriggerLex<"TRIGGERED" > 

I<"triggered" >; 

ALLKW: AllLex<"ALL" > 

l<"all" >; 

SOM EKV7: S ome Lex<" SOME " > 

1<"some" >; 

PERW*/: PeriodLex<"PERIOD" > 

I<"period" >; 

FINISHKW: FinishLex<"FINISH" > 

i<"finish" >; 

MCPKW: MCPLex<"MINIMUM\ CALLING\ PERIOD" > 

l<"minimum\ call\ period" >; 

MRTKW: MRTLex<"MAXIMUM\ RESPONSE\ TIME" > 

)<"minimum\ response\ time" >; 

MAXEXTIMEKV7; MaxExTimeLex< "MAXIMUM\ EXECUTION\ TIME 
}<"maximum\ execution\ time" >; 

IFKW: IfLex<"IF" > 

I < " i f" > ; 

RESETKW; RESETLgx<"RESET\ TIMER" > 

I<"reset\ timer" >; 

STARTKl*7: STARTlex<"START\ TIMER" > 

)<"start\ timer" >; 
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STOPKV/j STOPLex<"STOP\ TIMER" > 

|<"stop\ timer" >; 

QUOTEKW: QUOTELex < \" > ; 

IDENTIFIER ; IdGntLex<[a-zA-Z]ta-zA-Z_0-9]* >; 

INTEGERS : IntegerLex<[0-9]+ >; 

/* STRING_LITERAL: StringLitLex< [^\"]+ >; */ 

/***********************************************************************/ 
/* abstract grammar for comment lines to allow for free textual input 

*/ 

list commentLines; 
commentLines 

: exported CommentLinesNil() 

! exported CommentLinesPair(commentLine commentLines) 


commentLine 

; exported CommentLineNil() 


/* input syntax */ 

yCommentLine{synthesized commentLine a; ); 
yCommentLines(synthesized commentLines a; }; 

/* commentLine- yCommentLine.a ; */ 
commentLines- <NO„VJHITESPACE> yComment Lines, a ; 

yCommentLine 

;;=() ( $$.a = CommentLine; ) 

I (CLINE) { $$.a = Remove_Leading_Blanks_From_String(CLINE); ) 


yComment Lines 

::=(yCommentLine) 

{ $$.a = CommentLinesPair(yCommentLine.a, CommentLinesNil); } 

I (yCommentLine CLINEBREAK yCommentLines) 

{ $$.a = CommentLinesPair(yCommentLine.a/ yCommentLines$2.a); } 


/* IF OPTIONAL COMMENTS ARE EVER WANTED IN PSDL, THE FOLLOWING 

DECLARATIONS SHOULD COME HANDY. REFFER TO REPS' AND 
TEITLEBOUND'S BOOK, CHAPTER EIGHT FOR AN EXPLANATION OF 
HOW THIS VfORKS. 

*/ 

/****************************** 

optional optionalComment; 

optionalComment 

: OptionalCommentNil() 

I OptionalCommentPrompt() 

I OptionalComment(commentLines) 

yOptionalComment (synthesized optionalComment a;); 

yOptiona1Comment 

::=() {$$.a=OptionalCommentNil;) 

I (LCURLY yCommentLines RCURLY){ 

yCommentLines.tail=CommGntLinesNil; 

$$.a=OptionalComment(yCommentLines.reversed); 


Abstract Rules 


) 

optionalComment - yOptionalComment.a; 
***********************************/ 

/******** End of grammar for format free textual input * 

^******************************************************** 

/***** PSDL PROPPER BEGINS RIGHT HERE 

****** 

********************************************************* 
prototype: exported Prot(psdl_components); 

list psdl_components; 

psdl_components 

: exported PsdlNilO 

1 exported PsdlPair(component psdl_components) 


component 

: NoComponent() 

I Data(id type_spec type_impl) 

I exported Op(id operator_spec operator_impl) 


id : exported IdNullO 

I exported Id(IDENTIFIER) 


integer 

; exported IntegerNull() 

I exported IntegerVal(INTEGERS) 


/* 

string_lit 

: exported StringNull() 

I exported StringLit(STRING_LITERAL) 

*/ 


type_spec 

: TypeSpec{o_generic_params 
o_type_decls 
o_operators 
o_lcey words 
o„informal_descs 
o_formal_descs) 


optional o_genGric_params; 
o_generic_params 

; GenericNone() 

I GenericPrompt{) 

I Generic(typG_declarations) 


list type_declarations; 
type_declarations 

: exported TypeDeclNil() 

} exported lypeDeclPair(a_decl type_declarations) 
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a_decl : exported ADeclNilO 

j exported ADecl{id_liSt decl_type_name) 


type_name 

: lypeNameNull() 

! TypeName(id o_bracket_type_declarations) 


de c1_type_name 

; exported DiypeNameNull{} 

I exported Diypelnteger() 

I exported DTVpeRealO 
I exported DiypeBoolean() 

/* 

I exported DTypeException() 

*/ 

I exported DiypeSimpleld(id) 

J exported D'lypeUserDefined(id bracket_type_declarations) 


optional o_bracket_type_declarations; 
o_bracket_type_declarations 
: OBiypeNone() 

I OBTVpePrompt() 

I OBiypeDeclaration(type_declarations) 


bracket_type_decla ra tions 
: BTypeNulK) 

1 BTypeDeclaration(type_declarations) 


list id_list; 
id_list 

: exported IdNilO 
I exported IdPair(id id_list) 


list alone_id_list; 
alone_id_list 

: exported AldNilO 

I exported AIdPair(id alone_id_list) 


optional o_t ype_dec1s; 
o_type_decls 

: lypeNone() 
t lypsPrompt{) 

I Type(type_declarations) 

optional list o_operators; 
o_operators 

: OperatorNil{) 

I OperatorPair{t_oper_spec o_operators) 

t_oper_spec 

: TOpSpecNilO 
I 'K)pSpec(id operator_spec) 


operator_spec 

: exported OperatorSpec 

{o_generics_l ist 
o_inputs_list 
o_outputs_list 
o_states_list 
o_exceptions_list 
o_timing_info 
o_key words 
o_informal_descs 
o_formal_descs) 


optional list o__generics_list; 
o_generics_list 

: GenericsListNone() 

\ GenericsListPair(o_generics 

o_generics_l ist) 


o_generics 

: OpGenericsNone() 

I OpGenerics(type_declarations reqmts_trace) 


optional list o_inputs_list; 
o_inputs_list 

: exported InputsListNone() 

I exported InputsListPair(o_inputs 

o_inputs_list) 


o_inputs 

: exported OpInputsNone() 

I exported Opinputs(type_declarat ions reqmts_trace) 


optional list o_outputs„list; 
o_outputs_list 

; OutputsListNoneO 
I OutputsLiSt Pair(o_outputs 

o_out pu t s_list) 


o_outputs 

; OpOutput sNone() 

I OpOutputs(type_declarations reqmts_trace) 


optional list o_exceptions_list; 
o_exceptions_list 

: ExcListNoneO 
I ExcListPair{o_exceptions 

o_excep tion s_lis t) 


o_excoptions 

: OpExceptionsNone() 

I OpExceptions{alone_id_list reqmts_trace) 
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optional list o_timing_info_list; 
o_timing_info_list 

: TimeInfoNone{} 

1 TimelnfoPair {o_t iining_info 

o_t iming_in fo„l ist) 

*/ 

optional o_timing_info; 
o_timing_info 

: exported OpTimingInfoNone{) 

I exported OpTimingInfoPrompt() 

I exported OpTimingInfo(time reqmts_trace) 


time 

: exported TimeNull{) 

I exported Time (integer time__unit) ; 

time_unit 

: exported UnitNilO 
I exported UnitMICROSECONDS() 

I exported UnitMSO 
I exported UnitSEC{) 

1 exported UnitMINO 
I exported UnitHOURS{) 


optional list o_states_list; 
o_states_list 

: exported StatesListNone() 

I exported StatesListPair(o_states 

o_states_list); 

o_states 

: exported OpStatesNone() 

I exported OpStates(type_declarations expression_list reqmts_trace) 


optional list initial_args; 

/* 

optional initial_args; 

*/ 

initial_args 

: InitialArgsNil() 

/* 

I InitialArgsPrompt{) 

I InitialArgs(expression_list) 

*/ 

j InitialArgs(an_argument initial_args) 


an_argument 

: AnArgNil() 

I AnArgument(expression_list) 


list expression_list; 
expression_list 

: InitialExpListNil() 

( InitialExpListPair(expression expression_list) 


expression 

: ExpNullO 
I Identifier(id) 

I Textual_Description(commentLines) 

/* 

I Textual_Description(string_lit) 

*/ 

I TypeExpression(type_name id initial_args) 
I Parenth€sizedExp{expression) 

/* BOOLEAN EXPRESSIONS */ 

1 True() 

I False0 

I NotExp(expression) 

I EqualExp(expression expression) 

I LessExp(expression expression) 

I GreaterExp(expression expression) 

I GreatEqualExp(expression expression) 

I LessEqualExp(expression expression) 

I NotEquivExp(expression expression) 

I AndExp(expression expression) 

I OrExp(expression expression) 

I XorExp(expression expression) 

/* ARITHMETIC EXPRESSIONS */ 

! Integer(integer) 

! Real(integer integer) 

1 PlusExp(expression expression) 

! MinusExp(expression expression) 

1 TimesExp(expression expression) 

I DivExp(expression expression) 

I NegativeExp(expression) 

1 PositiveExp(expression) 

I AbsExp{expression) 

I RemExp(expression expression) 
t ModExp{expression expression) 

I ExponentExp(expression expression) 

/* STRING EXPRESSION */ 

! ConcatExp(express!on expression) 


opt iona 1 o_k;eywords; 
o_)ceyv;ords 

: KeyVtordsNone() 

I KeyWordsPrompt() 

I Keywords{alone_id_list) 


optional o_informa1_descs; 
o_informal_desc s 

; exported InformalDescsNull() 

I exported InformalDescsPrompt() 

I exported InformalDescs(commentLines) 


optional o_formal_descs; 
o_ f orma1_desc s 

: FormalDescsNoneO 
I FormaIDescsPrompt() 

I FormalDescs(commentLines) 
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operator_id 


: exported OperatorldNull() 

optional rGqmts_trace; 

1 exported Operatorld(optional„type_id 

reqmts_trace 

id 

: Reqmt sTraceNone() 

opera tor_id_pairs) 

i ReqmtsTracePrompt() 

; 

1 ReqmtsTrace(alone_id_liSt) 

optional optional_type_id; 

text : TextNullO 

optional_type_i d 

: exported OptionaliypeldNull{) 

1 exported OptionalTypeldPrompt() 

1 Text(id) 

1 exported OptionalTypeId{id) 

type_impl 

optional opGrator_id_pairs; 

: 'lypelmplNull {) 

operator_id_pairs 

1 AdaTypelmp1(id) 

: exported OperatorldPairsNull() 

1 Typelmpl(type„name 

1 exported OperatorldPairsPrompt() 

opera tor_impl_1ist) 

1 exported OperatorldPairs(alone_id_list 


alone_id_list) 

/* nev7 declarations */ 


optional list operator_impl_list; 

optional optional_time; 
optional_time 

opera t or_imp1„1ist 

; exported OptionalTimeNull() 

: OpImplListNull() 

1 exported OptionalTimePrompt() 

1 OpImplListPair(t_op_impl 

i exported OptionalTime(time) 

operator_impl_list) 



optional list edge_list; 

t_op_impl 

edge_list 

: TOpImplNul1() 

: exported EdgeListNil() 

1 TOpImpl(id 

1 exported EdgeListPair(an_edge 

operator_impl) 

edge_list) 

operator_impl 

an_edge 

: exported OpImplNullO 

: exported AnEdgeNullO 

1 exported AdaOpImpl{id) 

1 exported AnEdge(id 

1 exported Operatorlmpl(graph 

latencystime 

declarations 

f rom_vert ex_id 

cc) 

to_vertex_id) 

graph 

optional latency_time; 

: exported GraphNullO 

latency_time 

} exported Graph(vertex_list 

: exported LatencyTimeNul1() 

edge_list) 

1 exported LatencyTimePrompt() 


1 exported LatencyTime(time); 

optional list vertex_list; 

f rom_vert ex„i d 

vertex_list 

: FVertexIdNull0 

: exported VertexListNull() 

1 FVertexId {optional_type_id 

\ exported VertexListPair(a_vertex 

id 

vertex_list) 

opera tor_id_pairs) 

a_vert ex 

to_vertex_id 

: exported AVertexNull() 

: TVertexIdNull0 

! exported AVertex(operator_id 

1 TVertexId(optional_type_id 

optional_time) 

id 


operator_id_pairs) 
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declarations 

/* 

; exported DeclarationsNull(} 

I exported Declarations{optional„streams 

*/ 

; exported Declarations(optional_streams 

optional_timers) 

optional optional_streams; 
optional_streams 

; exported StreamsNull{) 

I exported StreamsPrompt() 

I exported Streams(type_declarations) 


optional optional_timers; 
optional_timers 

: exported TimersNull() 

I exported TimersPrompt() 

I exported Timers{alone_id_list) 


cc ; exported CcNullO 

I exported Cc(constraints 
o_in formal_desc s) 


list constraints; 
constraints 

; exported ConstraintsNull() 

1 exported ConstraintsPair(a_constraint 
constraints) 


a_constraint 

: exported AConstraintNull0 
I exported AConstraint{operator„id 
optional_trigger 
optional_period 
optional_finish_within 
optional_mcp 
optional_mrt 
output_guards 
exception_ops 
timer_operations) 


optional optional„trigger; 
optional_t rigger 

: exported OptionaiTriggerNull0 
I exported OptionalTriggerPrompt() 

I exported OptionalTriggerA110rSome( 
type_of_trigger 
alone_id_list 
optional_if_predicate 
reqmts_trace) 

I exported OptionallfExp(expression 
reqmts_trace) 


type_of_trigger 

: exported TriggerNul1() 

I exported TriggerAllO 
I exported TriggerSome() 

optional optional_period; 
optional_period 

: exported OptPeriodNull() 

I exported OptPeriodPrompt() 
I exported OptPeriod(time 
reqmts_trace) 


optiona1 optional_finis h_within; 
optional_finish_within 

: exported OptFinishVUthinNull() 

I exported OptFinishWithinPrompt() 
I exported OptFinishWithin(time 
reqmts_trace) 


optional optional_mcp; 
optional_mcp 

; exported OptMcpNullO 
I exported OptMcpPrompt() 

I exported OptMcp(time reqmts_trace) 


optional optional_mrt; 
optional_mrt 

: exported OptMrtNull() 

I exported OptMrtPrompt() 

! exported OptMrt(time reqmts_trace) 


optional list output_guards; 
output_guards 

: exported OutputGuardsNil() 

I exported OutputGuardsPair(a_guard output_guards) 


a_guard ; exported AGuardNullO 

I exported AGuard(alone_id_list 
c_expression 
reqmts_trace) 


optional exception_ops; 
exception_ops 

: exported ExceptionOpsNull() 

1 exported ExceptionOpsPrompt() 

I exported Except ion(exception_options) 


optional list exception_options; 
exception_options 

; exported ExceptionOptionsNil() 

I exported ExceptionOptionsPair(an_exception 
exception_options) 


an_exception 
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I 


exported AnExceptionNull() 
export ed AnException(id 

optional„if_predicate /* 

reqmts_trace) 


optional list timer_operations; 
timer_operations 

; exported TimerOperationsNil() 

I exported TimerOperationsPair(a_timer_operation /* 

timer_operations) 


I Cldentifier(id) 

I CTextual_Description(commentLines) 

I CTextual_Description(string_lit) 

) CiypeExpression(type_name Id c_initial_args) 
I CTimeExpression(time) 

I CParenthesizedExp{c_expression} 

BOOLEAN EXPRESSIONS */ 


a_timer_operation 

; exported ATimerOperationNull(} 

I exported ATimerReset(id optional_if_prGdicate reqmts_trace) 
I exported ATimerStop(id optional_if_predicate reqmts_trace) 

I exported ATimerStart(id optional^!f_predicate reqmts_trace) 


optional optional_if_predicatG; 
optional^!f_predicate 

: OptlfPredicateNull0 
I OptIfPredicatePrompt() 

I OptIfPredicate(c_expression) 


I CTrueO 
I CFalseO 

I CNotExp(c_expression) 

I CEqualExp(c_expression c_expression) 

I CLessExp(c_expression c_exprGssion) 

I CGreaterExp(c_expression c_expression) 

I CGreatEqualExp{c_expression c_expression) 
I CLessEqualExp(c_expression c_expression) 

I CNotEquivExp(c_Gxpression c_expression) 
j CAndExp(c_expression c_expression) 

I COrExp(c_exprGssion c_expression) 

I CXorExp(c_expression c_Gxpression) 

/* INTEGER EXPRESSIONS */ 


/* 

if_expression 

: IfExpressionNull() 

I IfExpression{c_expression) 


*/ 


/* EXPRESSIONS FOR IP'S */ 

optional list c_initial_args; 
/* 

optional c_initial_args; 

*/ 

c_initial_args 

; CInitialArgsNil() 

/* 


V 


I CInitialArgsPrompt{} 

I CinitialArgs{c_expression_list) 

I CinitialArgs(c_an_argument c_initial_args) 


c_an_argument 

: CAnArgNi1() 

j CAnArgument(c_expres sion_lis t} 


list c_expression_list; 
c_expression_list 

: CInitialExpListNil() 

! ClnitialExpListPair(c_expression c„expression_list) 


c_expression 

; CExpNullO 


I CInteger(integer) 

I CReal(integer integer) 

I CPlusExp(c_Gxpression c_exprGssion) 

I CMinusExp(c_expression c_expression) 

{ CTimesExp(c_expression c_expression) 

} CDivExp(c_exprGssion c_expression) 

I CNegativGExp(c_expression) 

I CPositiveExp{c_expression) 

I CAbsExp(c_expression) 
j CRemExp{c_expression c_expression) 

I CModExp(c_expression c_expression) 

I CExponentExp(c_expression c_expression) 

/* STRING EXPRESSIONS */ 

I CConcatExp(c_expression c_expression) 

/************************ ********** *itinnntitinnnt*in,itint* ******* 

**** Below are Abstract Rules added by 

★*** Scott Orosenhelder 

**** on March 1996 

**** work that Impleinents semantic checking of timing and 

**** control constraints within the SDE. 

***********************************************A^ 

list op_id_met_set; 

op_id_met_set 

: exported OpIdMetSetNil0 

I exported OpIdMetPair{op_id_met op_id_met_set) 


op_id_jnet 

: exported OpIdMetNull{) 

I exported OpIdMet(operator_id met) 
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/* Maximum execution time */ I 

/* Due to problems when working w/ time, all constraint times will be 
converted to a common integer (assume microseconds) */ 


met 


edge 


; exported MetNullO 
} exported MET(REAL) 


exported 

exported 


exported 

exported 


EdgeSetNilO 
EdgePair(edge edge_set) 


EdgeNullO 

Edge(id latency producer consumer) 


/* - */ 

list id_constraint_set; 


latency 

t exported LatencyNull() 
I exported Latency(REAL) 


id_constraint_set 

: exported IdConstraintSetNil{) 

I exported IdConstraintPair(id_constraint id_constraint_set) 


id„constraint 

: exported IdConstraintNull() 

I exported IdConstraint(operator_id time_constraints trigger) 


producer 

: exported ProducerNull() 

I exported Producer(operator_id) 


consumer 

: exported ConsumerMul1() 

1 exported Consumer(operator_id) 


time_const raint s 

: exported OpConstraintsNull{) 
I exported Periodic(per fw) 

1 exported Sporadic(mcp mrt) 


trigger 

: exported TriggerByNull{) 
I exported TriggerByAll() 

I exported TriggerBySome{) 

/* Period */ 
per 

: exported PerNullO 
I exported Per(REAL) 


/* Finish Within */ 
fw 

: exported FwNullO 
I exported Ft*/(REAL) 


/* Minimum calling period */ 
mcp 

; exported McpNullO 
I exported MCP(REAL) 


/* Maximun response time */ 
mrt 

: exported MrtNullO 
I exported MRT(REAL) 


/* -V 

list edge„set; 

edge„set 
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prototype, psdl_componGnts 
{ 

syn psdl„components syn_dGfined_operators; 
syn psdl_components syn_deeined_types; 

/* 

syn type_declarations syn_defined_streams; 
syn type_declarations syn_dGfined_states; 

*/ 

syn type_declarations syn_deeined„typG_decl; 
syn vertex_list syn_dGfined_vertices; 

/* 

syn edge„list syn_defined_Gdges; 

*/ 

); 

/* - 

prototype, psdl_components, component {syn op_id_met_set syn_vertex_id_met_SGt;}; 

prototype, psdl_components, component (syn id_constraint_set syn_id_constraint_set;}; 

prototype 

{syn IdSet syn_root_ids; 
syn IdSet syn_multiple_root_ids; 
syn IdSet syn_multiple_op_spec; 
syn IdSet syn_multiple_type_spGc; 
syn OpIdSet syn_multiple_verticGs; 
syn IdSet syn_multipie_streams; 

} ; 


prototype 
: Prot { 

$$-syn_vertex_id_met„set = psdl_components.syn_vertex_id_mGt_set; 
$$.syn_id_constraint_set = psdl_components.syn_id_constraint_sGt; 
$$.syn_dGfined_operators = psdl_components.syn_defined_operators; 

$$.syn_defined_typGS = psdl_components,syn_defined_types; 


$$•syn_defined_type„decl = psdl_components.syn_defined_type_decl; 

$$.syn_defined_verticGs = psdl_componGnts.syn_definGd_vertices; 

local IdSet root_components; 
root_components = Extract_Root_Components( 

psdl_components.syn_defined_opGrators, 
psdl_components.syn_dGfined_vertices); 

$$.syn_root_ids = root_components; 

local BOOL multiple_root_error/ 

multiple_root_error = (IdSetSize(root_components) > 1) ; 

local STR multiple_root_messagG; 

mult iple_root_message = {multiple_root_error) 

? "\n—\n— Multiple Root Operators \n" 


local IdSet multiple_root_ids; 

multiple_root_ids = (multipie_root_Grror) 

? root_components 
: IdSetNil; 

$$.syn_multiple_root_ids = multiple_root_ids; 


local IdSet multipiG_op_spec; 

multipie_op_spec = Extract_Multiple_Op_Spec_Id{ 
psdl_components.syn_defined_operators); 

$$-syn_multiple_op_spec = multiple_op_spec; 

local BOOL multiple_op_spec_error; 

multiplG_op_spec_error = (!IsNull(multipie_op_spec)); 

local STR multipie_op_spec_message; 

multiple_op_spec_message = (multipie_op_spec„error) 

? '‘\n-- \n-- Components V7ith More Than 1 Operator Spec\n" 


local IdSet multipie_type_spec; 

multipiG_type_spec = Extract_Multiple_Type_Spec_Id( 
psdl__components. syn_defined_types) ; 

$$.syn_multiple_type_spec = multiple_type_spec; 

local BOOL multlple_type_spec_Grror; 

multiple_type_spec_Grror = (!IsNull(multiple_type_spec)); 
local STR multipie„type_spec_messagG; 

multiple_type_spec_mGssage = (multipiG_type_spec_error} 

? "\n-- \n-- Components VUth More Than 1 Type Spec\n" 

local IdSet also_op_type_ids; 
also_op„type_ids = Extract_Op_'IVpe_Spec_Id ( 
psdl_component s, syn__de f i ned^types, 
psdl_components.syn_definGd_operators); 

local BOOL also_op_type__error; 

also_op_type_error = (!IsNull(also_op_type_ids)); 

local STR also_op_type_message; 
also_op__type_messagG = (also_op_typG_error) 

? "\n-- \n-- Components Defined As Both Operators and Types\n" 

local IdSet undefined_op_spGc_set; 
undefined_op_spec_set = Extract_Undefined_Op( 
psdl_components.syn_dGfined_vertices, 
psdl_components.syn_defined_operators); 

local BOOL undefined_op_spec_error; 

undefined_op_spec_error = (!IsNull(undefined_op_spec_sGt)); 

local STR undefined_op_spGC_message; 

undefined_op_spec_message = (undefined_op_spec_error) 

? "\n-- \n-- Operators Missing Operator Spec\n“ 


local OpIdSet undefined_type_op_spec_set; 
undefined_type_op_spec_set = Extract_Undefined_Type_Op( 
psdl_components.syn_defined_vertices, 
psdl_components.syn_defined_types); 

local BOOL undefined_type„op_spec_error; 

undefined„type_op_spec_Grror = (!OpIdSetIsNull(undefined_typG_op_spec_set)}; 
local STR undefined_type_op_spec_mGssage; 

undefined_type_op_spec_message = (undefined_type_op_spec_error) 

? "\n-- \n-- Operators Hissing Type and Op Spec\n*' 
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local OpIdSet multiple_vertices; 
multiple_vertices = Extract„Multiple_Vertices( 
psdl„components.syn_defined_vertices) ; 
$$.syn„multipie_vertices = multiple_vertices; 


local BOOL multiple__v€rtices_error; 

multiple_vertices_error = {!OpIdSetlsNull{multiple_vertices)); 
local STR multiple_vertices„message; 

multiple_vertices_message = (multiple_vertices_error) 

? \n— Vertices Appeared In More Than 1 Operator Impl\n" 


local IdSet multiple_streams; 

multiple_streams = Extract_Multiple_TD(psdl_components.syn_defined_type„decl); 
$$.synjnultipie_streams = multiple_streams; 

local BOOL multipie_streams_error; 

multiple_streams_error = {lIsNull(multiple_streams)) ; 

local STR multiple_streams_jnessage; 
multiple_streams_message = {multiple_streams_error} 

? "\n-- \n— Streams With More Than 1 State/Data Stream DeclarationXn" 


local INT processor„number; 

processor_number = Min„Processors_Required($$.syn_vertex_id_met_set, 

$$,syn_id_constraint_set); 

local BOOL min_processor_required_GTl; 
min_processor_required„GTl = 

( 1 < processor_number}; 
local STR min_processor_msg; 
min_processor_msg = 

(min_processor_required„GTl) 

? "\n-- ’Prototype will not schedule for less thanXn" 
tt " 

# INTtoSTR(procGssor_number) 

# “ processors. (Based on Periodic Operators only)" 

/* - */ 

local BOOL uniprocessor_unschedulability_Grror; 
uniprocessor_unschGdulability_error = 

!min_processor_required_GTl && 

! Uniprocessor_Schedulable ($$. syn_vertex_id_met_set, 
$$.syn_id_constraint_set); 
local STR uniprocessor_unschedulability_msg; 
uniprocessor_unschedulability_msg = 

(uniprocessor_unschedulability_error) 

? "\n-- !Prototype will not schedule for Uniprocessor.\n" 

# ■— (Based on Periodic Operators only)" 


local BOOL has„Grror; 
has_error = (multiple„root_error 
Ii multipie_op_spec„error 
I I multipie_type„spGc_error 
I I also_op_typG„Grror 


I I undefined_op_spec_error 
j I undefined_type_op_spec_error 
1 I multiple_vGrticGs_error 
I I multiple_streams_error 

I 1 min_processor_required_GTl 
I 1 uniprocessor_unschedulability_error); 


local STR error_header; 


error_header = (has_error) 

7 n- \n-- V7ARNINGS, ERRORS AND 

ALERTS:" 


local STR error_trailer; 
error„trailer = (has_error) 

? "\n-- \n-- \n\n\n" 

store(default_store global_proto_store) local prototype global_proto; 
global„proto = prototype; 

store(default_store global_root_store) local IdSet global_root; 


global„root = root_components; 

store(default_store global_type_decl_store) local type_declarations 
global_type_decl; 

global_type_decl = psdl_components.syn_defined_type_decl; 

store(default_store global_undef_ops_store) local IdSet global_undef_ops; 
global_undef_ops = undefinGd_op_spec„set; 

); 

/*-*/ 

psdl_components 
: PsdlNil 

{$$.syn_defined_opGrators = PsdlNil; 

$$.syn_defined_types = PsdlNil; 

$$.syn_dGfined_type_decl = TypeDeclNil; 

$$.syn_defined_vertices = VertexListNull; 

$$ .syn_vertex_id_met_set = OpIdMetSetNil; 

$$.syn_id_constraint_set = IdConstraintSetNil; 

} 

! PsdlPair 

{$$.syn_defined_operators = 

{IsOperator(component) 

? GetOperator(component);; 

psdl„componGnts$ 2 .syn_defined_operators 
: psdl_components$ 2 .syn_defined_operators); 

$$.syn_defined_types = 

(IsType(component) 

? GetType(component): : 

psdl_componGnts$ 2 .syn_defined_types 
: psdl_components$ 2 .syn_defined_types); 


$ $.syn_de finGd_type_dec 1 = 
Concat_'IVP®—D®cl_List { 
Concat_Type_Decl_List( 
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Concat_Type_Decl_List( 

Get_States(component ), 

Get_Streams(component )), 

(IsType(component) 

? Concat_Type_Decl_List( 

Get_Inputs(component), 

Get_Outputs(component)) 

: TypeDeclNil)), 

psdl_components$2.syn_defined_type„decl); 


$$.syn_defined_vertices = 

Concat_Vertex_List( 

GetVertices(component), 

psdl_components$2.syn_defined_vertices}; 


}; 


$$.syn_vertex_id_met_set = 

Op_Id_Met_Set_Union(component.syn_vertex_id__met_set, 

psdl_components$2.syn_vertex_id_met„set); 

$$.syn_id_constraint_set = 

Id_Constraint_Set_Union(component.syn_id„constraint_set, 

psdl_components$2.syn_id_constraint_set}; 


/* 


*/ 


type_declarations, a_decl, id_list {synthesized IdSet id_set; }; 

id_list (inh type_declarations inh_types_types; 
inh type_declarations inh_generic_types; 
inh type_declarations inh_generics_types; 
inh type_declarations inh_inputs_types; 
inh type_declarations inh_outputs_types; 
inh type_declarations inh_states_types; 

}; 


id_list 
: IdNil 

($$.id_set = IdSetNil; 

} 

1 IdPair 

($$.id_set = IdSetUnion(SingletonIdSet(id) , id__list$2.id_set); 

id_list$2.inh_types_types = $$.inh_types_types; 
id_list$2.inh_generic_types = $$.inh_generic__types; 

id_list$2.inh^generics_types = $$.inh_generics_types; 
id__list$2 . inh_inputs_types = $$.inh_inputs_types; 
id_list$2.inh_outputs_types = $$.inh_outputs_types; 
id_list$2.inh_states_types = $$.inh_states_types; 

); 


id_list: 

IdPair 

(local STR multiply_defined; 
multiply_defined = 

(((id != IdNull)&& 

((IdlsDef imYpes(id, $$ .inh_types_types) + 
IdlsDef In‘IVpes(id, $$ , inh_generic„types) + 
IdlsDefInTypes(id, $$.inh_generics_types)+ 
IdlsDefInTypes(id, $$.inh_inputs_types)+ 
IdlsDefIniypes{id, $$,inh_outputs_types)+ 
IdlsDefInTypes{id, $$.inh_states_types}) > 1)) 


- Attribute Rules 


? •' >--MULTI PLY DEFINED 
: *■") ; 


/* - */ 

type_declarations, a_decl 

{inh type_declarations inh_types_types; 
inh type_declarations inh_generic_types; 

inh type_declarations inh_generics_types; 
inh type_declarations inh„inputs_types; 
inh type_declarations inh_outputs_types; 
inh type_declarations inh_states_types; 

}; 

type_declarations 
; TypeDeclNil 

{$$.id_set = IdSetNil; 

) 

1 lypeDeclPair 

{$$.id_set = IdSetUnion(a_decl.id_set, type_declarations$2,id_set); 

a_decl.inh_types_types = $$,inh_types_types; 
type_declarations$ 2 .inh_types_types = $$.inh_types_types; 

a_decl.inh_generic_types = $$.inh_generic_types; 
type„declarations$ 2 .inh_generic_types = $$.inh_generic_types; 

type_declarations$ 2 .inh_generics_types = $$.inh_generics_types; 
type_declarations$ 2 .inh_inputs_types = $$.inh_inputs_types; 
type_declarations$ 2 .inh_outputs_types = $$,inh_outputs_types; 
type_declarations$ 2 .inh_states_types = $$.inh_states_types; 

a_decl.inh_generics_types = $$.inh_generics_types; 
a_decl . inh_inputs_types = $$.inh„inputs_types; 
a_decl .inh_outputs_types =5 $$. inh_outputs_types; 
a_decl.inh_states_types = $$.inh_states_types; 


}; 

/* - */ 

a_decl 

: ADeclNil 

{$$.id_set = IdSetNil; 

) 

I ADecl 

{$$.id_set = id_list.id_set; 

id_list.inh_types_types = $$.inh_types_types; 
id_list.inh_generic_types = $$.inh_generic_types; 
id_list.inh_generics_types = $$.inh_generics_types; 
id_list.inh_inputs_types = $$.inh_inputs„types; 
id_list.inh_output s_types = $$.inh_outputs_types; 
id__list. inh_states_types = $$. inh_states_types ; 

}; 

a_decl! 

ADecl {local STR undefined_ADT; 
undefin€d_ADT = 

(((Def inedTVpe(GetDecl'IVpeId(decl_type_name} , {prototype. syn_defined_types)) 
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&& (GetDeclTypeld(decl_type_name) != IdMull)) 
? " >--UMDEFINED ADT" 

. ,. .. ) . 


o_generic_pa rams 

{syn type_declarations declared_types; 
inh type_declarations inh_types_types; 
inh type_declarations inh_generic_types; 
) ; 


o_gene ric_pa rams 
: GenericNone 

{o_generic_params.declared_types = TypeDeclNil;) 

! GenericPrompt 

{o„generic_params.declared_type 5 = TypeDeclNil;) 

I Generic 

{o_generic_params.declared_types = typG_declarations; 


type_declarations.inh_types_types = $$.inh_types_types; 
type_dGclarations.inh_generic_types = $$.inh_generic_types; 
type_declarations,inh_generics_typGs = lypeDeclNil; 
type_declarations.inh_inputs_types = TypeDeclNil; 
type_declarations.inh_outputs_types = TypeDeclNil; 
type_declarations. inh_states_types = 'lypeDeclNil; 

) 


$$.generic_types = o_gGneric_params.declared_types; 

$$ -types_types = o_type_decls.declared_types; 

$$.defined_operators = o_operators; 

o_generic_params.inh_types_types = $$.types_types; 
o_type_decls,inh_types_types = $$,typGs_typGs; 

*/ o_generic_params.inh„gGnGric_typGs =$$.generic_types; 

o_type_decls.inh_generic_types = $$.generic_types; 


); 


/* - 

type_impl{ syn operator_impl„list syn_operator„impl_list; 
) ; 


type_inipl 

$$,syn_operator_impl_list = OpImplListNull; 

> 

I AdaTypelmpl{ 

$$.syn_operator_impl_list = OpImplListNull; 

} 

I lypelmpl{ 

$$.syn_operator_impl_list = operator_impl_list; 

); 


operator_spec, o_inputs_list/ o_inputs ( syn IdSet input_id_set; >; 


/ 


/ 


/* 


*/ 


operator_spec, o_outputs„list/ o_outputs { synthesized IdSet output_id_set; ); 


o„type_decls 

{syn type_declarations declared_types; 
inh type_declarations inh_types_types; 
inh type_declarations inh_generic_types; 
); 


o_type_decls 
: TypeNone 

(o_type_decls.dGclarGd_types = TypeDeclNil;} 

I TypePrompt 

{o„type_decls.declared_types = TypeDeclNil;) 

I Type 

{o_type_dGcls.dGclared_types = type_declarations; 


operator_spGC, o_states_list, o_states { synthesized IdSet state_id_set; ); 


operator_impl, 
vertex_id_set; 
operator_impl, 
operator_impl, 
operator_impl/ 
cc, constraint 


graph, vertex_list, a_vertex, operator_id { synthesized OpIdSet 
) ; 

graph, vertex_list {syn op_id_met_set syn_vertex_id_jnet_sGt;); 

graph, edge_list (syn GdgG_sGt syn_edge_set;) ,- 

cc, constraints (syn id_constraint_set syn_id_constraint_set;); 

s, a_constraint (inh op_id_met_sGt inh„vertex„id_met_set;) ; 


operator„impl, graph, edge_list, an_edge ( synthesized IdSet edge_id_set; ); 
opGrator_impl, declarations, optional_streams { synthesized IdSet stream_id_set; ); 


type_declarations.inh_types_types = $$.inh_types_types; 
type„declarations.inh_generic_types = $$.inh_generic_types; 
type_declarations.inh_generics_types = TypeDeclNil; 
type_declarations.inh_inputs_types = TypeDeclNil; 
typG_declarations.inh_outputs_types = TypeDeclNil; 
type_declarations.inh_states_types = TypeDeclNil; 


type_spec(syn type_declarations generic_types; 
syn type_declarations types_typGS; 
syn o_operators definGd_operators; 


type_spec 

; TypeSpec{ 


operator_impl, cc, constraints, a_constraint { synthesized OpIdSet 
constraint_op_id_set; ); 


o_generics_list (syn type_declarations declared^types;); 

o_generics_list, o_generics 
( 

inh type_declarations inh_generics_types; 
inh type_declarations inh_inputs_types; 
inh type_declarations inh_outputs_types; 
inh type„declarations inh_states_types; 

); 

o_genGrics_list 

: GenericsListNone {$$.declared^types = TypeDeclNil;) 
j GenericsListPair 
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{$$.declared_types = GetCenericsiypes{o_gGnerics)@ 
o_generics_list$2.declared_typGS; 

o_gGnerics_list$2.inh_gGnerics_types = $$.inh_generics_types; 
o__genGrics_list$2 . inh_input s_types = $$.inh„inputs_types; 
o_generics__list$2 . inh_outputs_types = $$.inh_outputs_types; 
o_generics_list$2.inh_states_types = $$ . inh_states_types; 

o_gene^ics. inh_generics_types = $$.inh_generics_types; 
o_gGnerics.inh_inputs_types = $$.inh_inputs_types; 
o_generics.inh_output s_types = $$.inh_outputs_types; 
o_generics,inh_statGS_types = $$.inh_states„types; 


o_generics 
; OpGenerics 

{type_declarations.inh_types_types = TypeDeclNil; 
type_declarations.inh_generic_types = TypeDeclNil; 

type_declarations.inh_generics_types = $$.inh__generics_types; 
type_declarations.inh_inputs_types = $$.inh_inputs_typGS; 
type_declarations.inh_outputs_types = $$.inh_outputs_types; 
type_declarations.inh_states_types = $$.inh_statGs_types; 

/*— 
o_inputs_list {syn type_dGclarations declared_types;}; 

o_inputs_list/ o_inputs 
{ 

inh type_declarations inh_genGrics_typGs; 
inh typG„declarations inh_inputs„types; 
inh type_declarations inh_outputs„types; 
inh type„declarations inh_states_types; 

); 


type_dGclarations.inh_types_types = TypeDeclNil; 
type_declarations.inh_genGric_typGs = TypeDeclNil; 

type_declarations.inh_generics_types = $$.inh_generics_types; 
type_declarations.inh_inputs_types = $$.inh_inputs_types; 
type_declarations.inh_outputs_types = TypeDeclNil; 
type_declarations.inh_states_types = $$.inh_states_types; 

}; 

*-:----*/ 

o_outputs_list {syn type_declarations declarGd_types;}; 

o_outputs_list, o_outputs 
( 

inh type_declarations inh_generics_types; 
inh type_declarations inh_inputs_types; 
inh type_declarations inh„outputs_types; 
inh type_declarations inh_states_types; 

}; 

o_outputs_list 

: OutputsListNone 

{$$.dGclared_types = TypeDeclNil; 

$$.output_id_SGt = IdSetNil; 

} 

I OutputsListPair 

($$,dGclared_types = GetOutputsTypes{o_outputs} (a o_outputs„list$2.declared_typGs; 
$$.output_id_set = IdSetUnion(o_outputs.output_id_set, 
o_out put s_list$2.output_id„set); 

o_outputs_list$2.inh_generics_types = $$.inh_generics_types; 
o_outputs_list$2.inh_inputs_types = TypeDeclNil; 
o_outputs_list$2.inh_outputs_typGS = $$.inh_outputs_types; 
o„outputs_list$2.inh_states_types = $$.inh_states_typGs; 


o_inputs_list 

; InputsListNone 
($$.declared_types 
$$.input_id_set = 

} 

1 InputsListPair 
($$.declared_types 
$$.input_id_set = 


= TypeDeclNil; 
IdSetNil; 


= GetInputsTypGs(o_inputs)@ o_inputs_list$2.declarGd_types; 
IdSetUnion(o_inputs.input_id_set, o_inputs_list$2.input_id_set); 


o_inputs_list$2,inh_generics_types = $$.inh_generics_types; 
o_inputs_list$2.inh_inputs_types = $$.inh_inputs_types; 
o_inputs_list$2.inh_outputs_types = TypeDeclNil; 
o_inputs_list$2.inh_states_types = $$.inh_states_types; 

o_inputs . inh_generics_types = $$.inh_generics_types; 
o„inputs.inh„inputs„types = $$.inh„inputs_types; 
o_inputs.inh_outputs_types = TypeDeclNil; 
o_inputs,inh_statGs_types = $$.inh_states_types; 


o_inputs 

; OpInputsNone 

($$.input_id_set = IdSetNil; 

} 

I Opinputs 

{$$.input_id_set = type_declarations.id_set; 


o_output s.inh_genGrics_types = $$,inh_generics_types; 
o_outputs.inh_inputs_types = TypeDeclNil; 
o_outputs.inh_outputs_types = $$.inh_outputs_types; 
o_outputs.inh_statGs_types = $$.inh_statGs_typGs; 


o_outputs 

: OpOutputsNone 

{$$.output_id_set = IdSetNil; 

} 

I Opoutputs 

{$$.output_id_set = type_declarations.id_set; 

type_dGclarations.inh_types_types = TypeDeclNil; 
type_declarations,inh_generic_types = TypeDeclNil; 

type_declarations.inh_generics_types = $$.inh_generics_types; 
type_declarations.inh_inputs_types = TypeDeclNil; 
type_dGclarations.inh_outputs_types = $$.inh_outputs_types; 
type-declarations.inh_states_types = $$.inh-Stat€S_types; 


O—StateS—list {syn type-declarations declared—types;}; 

O—states—list/ O—states 

{ 

inh type—declarations inh—genericS—types; 
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inh type_declarations inh_inputs_types; 
inh type_declarations inh_outputs_types; 
inh type_declarations inh_states_types; 


$$.inputs„types = 
$ $.output s_types 
$$,states_types = 


o_inputs_list.declared_types; 

= o_outputs_list.declared_types; 
o_states_list.declared_types; 


) ? 


o_states_list 

: StatesListNone 

{$$.declared_types = lypeDeclNil; 
$$.state_id_set = IdSetNil; 

) 


I StatesListPair 

{$$.declared_types = GetStatesiypes(o_statGs)@ o_states_list$2.dGclared_types; 
$$.state_id_set = IdSetUnion(o_statGs.state_id„set, o„states_list$2.state_id_set); 


o_states_list$2.inh_generics_types = $$.inh_generics_types; 
o_states_list$2 . inh_inputs_types = $$.inh_inputs_types; 
o_states_list$2 . inh_outputs_types = $$. inh_outputs__types; 
o_states_list$2 .inh_states_types = $$.inh_states_typGs; 


o_states.inh_generics_types = $$.inh_generics_types; 
o_statGs.inh_inputs_types = $$.inh_inputs_types; 
o_states.inh_outputs_types = $$.inh_outputs_types; 
o_states.inh_states_types = $$.inh_states_types; 


o_states 

: OpStatesNone 

{$$.state_id_set = IdSetNil; 

) 

I OpStatGs 

{$$ . state_id_SGt = type_declarations .id_.SGt; 

typG_declarations.inh_types_types = TypeDeclNil; 
type_dGclarations.inh_gGneric_types = TypeDeclNil; 

type_declarations.inh_generics_types = $$.inh_generics_types; 
type_dGclarations.inh_inputs„types = $$.inh_inputs_types; 
type_dGclarations.inh_outputs_types = $$.inh_outputs_types; 
type_declarations.inh_states_types = $$.inh_states_types; 

); 

/* ... . ...—.—*/ 

o_timing_info 

{syn time syn_met; 

) ; 


$$.input_id_set = o_inputs_list.input_id_set; 
$$.output_id„set = o_outputs_list.output_id_set; 

$$.state_id_set = o_statGS_list.state_id_set; 

o_generics_list.inh_gGnerics_types = $$.genGrics_types; 
o_generics_list.inh_inputs_typGs = $$.inputs_types; 
o_gGnerics_list.inh_outputs_types = $$.outputs_types; 
o_generics_list.inh_states_types = $$.states_types; 

o_inputs_list,inh_generics_types = $$.generics_types; 
o_inputs_list.inh_inputs_types = $$.inputs_types; 
o_inputs_list,inh_outputs_types = $$.outputs_types; 
o_inputs_list.inh_states_types = $$.statGs_types; 

o_outputs_list.inh_genGrics_types = $$.generics^types; 
o_outputs_list.inh„inputs_types = $$.inputs_types; 
o_outputs_list.inh_outputs_types = $$.outputs„types; 
o_outputs_list.inh_states_types = $$.states_types; 

o_states_list.inh_generics_types = $$.generics_typGS; 
o_states_list.inh_inputs_types = $$.inputs_types; 
o_states_list.inh_outputs_types = $$.outputs_types; 
o_states_list,inh_states_typGs = $$.states_types; 

$$.syn_met = o_timing_info.syn_met; 

}; 


/*- 

t_oper_spGC 
; TOpSpec { 

local BOOL multiply_definGd_error; 

multiply_defined_error = (id!=IdNull) && (OpIsDefinediniypeSpec( 
id/ {type_spec-defined_operators)) > 1}; 

local STR multiply_dGfined_message; 

multiply_definGd_message = (multiply_dGfinGd_error) 

? " \n-- \n-- Multiply Declared Operator Spec" 


local BOOL has_error; 

has_Grror = (multiply_definGd_Grror ); 


o_timing_info 

: OpTiminglnfoNonet $$.syn_mGt = TimeNull; ) 

I OpTimingInfoPrompt{ $$.syn_met = TimeNull; ) 

I OpTimingInfo{ $$.syn_met = time; ); 

--- 

operator_spec 

(syn type_dGclarations generics_types; 
syn type_declarations inputs_typ€s; 
syn type_declarations outputs_types; 
syn type_declarations states_types; 
syn time syn_met; 

}; 

operat or_spec 

: OperatorSpec{ 

$$.generics_types = o_genGrics_list.declared_types; 


local STR error_header; 


error_header = (has_error) 

? -\n-- WARNINGS/ 

ALERTS:" 


local STR error„trailer; 


error_trailer = (has_error) 

? "\n-\n" 

store{default„store t_multi_op_error„store) local BOOL localjmulti 
local„multi_op_error = multiply_defined_error; 


); 


ERRORS AND 


,op_error; 
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/* - */ 

t_op_impl 
: TOpImpl { 

local t_oper_spec local_t_oper_spec; 

local_t_oper_spec = (id!=IdNull) 

? Find_T_Op_Spec{id, {Data.syn_o_ope ra t ors}) 

: TOpSpecNil; 

local BOOL missing_op_spec_error; 

missing_op_spGc_error = {id!=IdNull) 

&& {local_t_oper_spec == TOpSpecNil); 

local STR n\issing_op_spGC_messagG; 

missing_op_spec_message = (missing_op_spec_error) 

? " \n-- \n-- Obsolete Operator Implementation" 


local BOOL multiply_defined_error; 

multiply_defined_error = {(id!=IdNull) && 
{OpIsDefinedinTypelmpl(id, 

(type_impl.syn_operator_impl_list}) > 1)); 

local STR mult iply_defined_message; 

multiply_defined_messagG = (multiply_defined_error) 
? " Xn-- \n-- Multiply Declared Operator Impl" 


local IdSet inh_input_id_set; 

inh_input_id_set = Get_Input_Id_Set_From_TOpSpec {local_t_oper_spec) ; 
local IdSet inh_output_id_sGt; 

inh_output_icLset = Get_Output_Id_SGt_From_TOpSpec {local_t_oper_spec) ; 
local IdSet inh_state_id_set; 

inh_state_id_set = Get_State_IcLSet_From_TOpSpec {local_t_oper_spec) ; 
local time inh_met; 

inh_met = Get_Met_From_TOpSpGc{local_t_oper_spec); 

local IdSet input_output_state_union_set; 
input_output_state_union_set = 

IdSetUnion{inh_state„id_set, 

IdSetUnion(inh_input_id_set, inh_output_id_set)); 

local IdSet obsolGte_state_id_set; 

obsolete_state_id_set = {Get _Impl„Form (opera tor_impl) == 2) 

? IdSetDitference{ 
inh_state_id_set, 

Extract_Edge_Id_Set{operator_impl)) 

: IdSetNil; 

local BOOL obsolete_state_error; 

obsolete_state_error = {!IsNull{obsolete_state_id_set)); 

local STR obsolete_state_message; 

obsolete_state_message = (obsolete_state_error) 

? "\n-- Xn-- Obsolete State Declarations Xn" 


local IdSet undefined_stream; 
undefined_stream = 


IdSetDifference{operator_impl.edge_id_set, 

IdSetUnion{operator_impl.stream_id_set, 
input_output_state_union_set))/ 

local IdSet obsolete_stream; 
obsolete_stream = 

IdSetUnion{ 

IdSetDifference{operator_impl.strGam_id_set, 
operator_impl.edge_id_set), 

IdSetIntersect{operator_impl.strGam_id_set, 
input_output_state_union_set)); 

local BOOL undefined_stream_error; 

undefined_stream_error = {!IsNull(undefined_strGam)); 

local STR undefined_,stream_message; 

undef ined_streaiiv_message = (undef inGd_stream_error) 

? "Xn— Xn-- Hissing Stream Declarations Xn" 


local BOOL obsolete_stream_error; 

obsolete_stream_error = {!IsNull{obsolete_stream)); 

local STR obsoletG_stream_message; 
obsolete_stream_message = {obsolete_stream_error) 

? "Xn-- Xn-- Obsolete Stream Declarations Xn" 


local id loc_operator_id; 

loc_operator_id = id; 

local OpIdSet undefined_constraint; 

undefined„constraint = OpIdSetDifference{opGrator_impl.vertex_id_set, 
operator_impl.constraint_op_id_set); 

local OpIdSet obsolete_CGnstraint; 

obsolete_constraint = i 

OpIdSetDi f ference (operator_impl.constraint_op_id_set, 
operator_impl.vertex_id_set); 

local BOOL undefined_constraint_error; 

undefined_constraint_error = {!OpIdSetlsNull(undefined_constraint)); 
local STR undefined_constraint_messagG; 

undefined_constraint_message = (undefined_constraint_error) 

? "Xn-- Xn-- Missing Constraint Entries Xn" 


local BOOL obsolete_constraint_error; 

obsolete_constraint_error = (!OpIdSetIsNull(obsolete_constraint)); 
local STR obsolete_constraint_message; 

obsolete_constraint_message = (obsolete_constraint_error} 

? "Xn-- Xn-- Obsolete Constraint Entries Xn" 


local BOOL has_error; 
has_error = (missing_op_spec_error )| 
multiply_defined_error 1 I 
obsolete_state_error || 

undefined_stream_error )I 
obsolete_stream_error I I 
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undefined_constraint_Grror I I 
obsolete_constraint_error); 

local STR error_header; 
error_header = {has_error) 

? "\n-\n 

WARNINGS, ERRORS AND ALERTS:" 


local STR error_trailer; 
error_trailer = (has_error} 
? "\n-- \n- 

\n" 


store(default_storG t„operator_id_store) local id operator^name; 
opera tor_naine = id; 

store(default_store t_type_id_store) local id type_name; 
type_name = (Data.local_type_id); 

store(default_store t_statGs_ids_store) local IdSet local_states„idset; 
local_states_idset = inh_state_id_set; 

store(default_store t_inh_input_ids_store) local IdSet local__inh„input_id_set; 
local_inh_input_id„set = inh_input_id_set; 

store(default_storG t_inh_output_ids_store) local IdSet local_inh_output_id_set; 
local_inh_output_id_set = inh_output_id_set; 

store(de£ault_store t_inh_met_store) local time local_inh_inGt; 
local_inh_met = inh_met; 

store(default_store t_impl_store) local INT is_composite; 
is_coinposite = Get_Impl_Form(operator_impl) ; 

store(default_store t_vertex_ids_store) local OpIdSet local_vertex_idset; 
local_vertex_idset = opGrator_impl.vertex_id_set; 

store(default_store t_edge_ids_store) local IdSet local_edgG_idset; 
local_edge_idset = operator_impl.edge_id_set; 

store(default_store t_stream_error_store) local BOOL local_stream_error; 
local_stream_error = {undefined_stream_error I 1 obsolete_stream_error }; 

store{default_store t_constraint_error_store) local BOOL local_constraint„Grror; 
local_constraint_error = (undefined„constraint_error || obsolete_constraint_error 

); 

); 


/* - */ 

optional_streams: 

Streams{ 

type_declarations.inh_types_types = TypeDeclNil; 
type_declarations. inh_generic_types = 'lypeDeclNil; 

type„declarations.inh_generics_types = TypeDeclNil; 
type_declarations.inh_inputs_types = lypeDeclNil; 
type_declarations.inh_outputs_types = TypeDeclNil; 


type_declarations.inh_states_types = TVpeDeclNil; 


/* - */ 

bracket„type„declarations 
: BTypeDeclaration 
{ 

type_declarations.inh_types_types = TypeDeclNil; 
type_declarations.inh_genGric_typGS = TypeDeclNil; 
type_declarations.inh_generics_types = lypeDeclNil; 
type_declarations.inh_inputs_types = TypeDeclNil; 
type_declarations.inh_outputs_types = TypeDeclNil; 
type_declarations.inh_states_types = TypeDeclNil; 

); 

/* -- */ 

o_bracket_type_declarations 
: OBTypeDeclaration 
{ 

type_decl arat ions, inh„types__types = TypeDeclNil; 
type_declarations.inh_generic_types = TypeDeclNil; 
type_declarations.inh_generics_types = TypeDeclNil; 
type_declarations.inh_inputs_types = TypeDeclNil; 
type_declarations.inh_outputs_types = TypeDeclNil; 
type_declarations.inh_states_types = TypeDeclNil; 

); 

/* - */ 

operator_impl 

: OpImplNull, AdaOpImpl 

{$$.vertex_id_set = OpIdSetNil; 

$$.edge_id_set = IdSetNil; 

$$.stream_id_set = IdSetNil; 

$$ .constraint_op_id_set = OpIdSetNil; 

$$.syn_vertex_id_met_set = OpIdMetSetNil; 

$$.syn_edge_set = EdgeSetNil; 

$$,syn_id_constraint_set = IdConstraintSetNil; 

) 

1 OperatorImp1 

{$$ .vertex_id_set = graph.vertex_id_set; 

$$.edgG_id_set = graph.edge_id_set; 

$$.stream_id_set = declarations.stream_id_set; 

$$ .constraint_op„id_set = cc.constraint_op_id_set; 

$$ . syn_vertex_id_met_set = graph.syn_vertGx_id_met_set; 

$$.syn_edge_set = graph.syn_edge_set; 

$$.syn_id_constraint_set = cc.syn_id_constraint_set; 
cc.inh_vertex_id_met_set = $$.syn_vertex_id_met_set; 

/* - */ 

local BOOL producerop_period_le_consumerop_error; 
producerop_period_le_consumerop_error = 

(Is_ProducerOp_Period_LE_ConsumerOp($$.syn_edge_set, 

$$.syn_id_constraint_set)); 

local STR producerop_period_le_consumerop_msg; 
producerop_period_le_consumerop_msg = 

{producerop_period_le_consumerop_error) 


? “\n" 

# !For any edge, the Producer's PeriodXn" 

# must exceed that of the Consumer." 

/* - */ 
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local BOOL sporadic_consumerop_v/o_trigger_error; 
sporadic_consun[\erop__wo_trigger_error = 

(Is_Sporadic„ConsumerOp_WO_Trigger{$$.syn_edge_set, 

$$.syn_id_constraint_set)); 

local STR sporadic_consumerop_wo„trigger_msg; 
sporadic_consumerop_wo_trigger_msg = 

{sporadic_consumerop_wo_t riggGr_error} 

? "\n" 


# !For any edge, if the Consumer is\n" 

# Sporadic, it must have a Trigger," 

/* - */ 


local BOOL constr_producerop_and_unconstr_consumerop_w_trigger_error; 
const r_producerop_and_unconstr_consumerop_w_trigger_error = 

{Is_Constr„ProducerOp_And_Unconstr_ConsumerOp_W_Trigger ($$, syn_edge_set, 

$$. syn_vertex_id_mGt_set, 

$$.syn_id_constraint_set)); 

local STR constr_producerop_and_unconstr_consumerop_w_trigger_msg; 
const r_producerop_and_unconstr_consumGrop_w_trigger_msg = 

(cons t r_producerop_and_uncons t r_con sumerop_w_t rigger_Grror) 

? -\n" 


# !For any edge, if the Producer is constrained,\n" 

# an unconstrained Consumer can not have a Trigger," 

/* - */ 


local BOOL unconstr_producerop_and_constr_consumerop_w_byall„error; 
unconst r_producerop_and_const r_consumerop_w_bya ll_error = 

(Is_Unconstr_ProducerOp_And_Constr_ConsumerOp_W_ByAll ($$ . syn_edge_SGt, 

$$, syn_vertex_id_met_set, 

$$.syn_id„constraint_set)); 

local STR unconstr_producerop_and_constr_consumerop_w_bya 1 l_msg; 
unconst r_producerop_and_const r_consumerop_w_byall_msg = 

(unconstr_producerop_and_constr_consumerop_w_byall_error) 

? -\n" 


# ‘For any edge, if the Producer is unconstrained,\n" 

# a constrained consumer triggered By_All\n'‘ 

# can result in Overflow." 

/* - */ 


local BOOL unconstr_producGrop_and_constr_consumerop_w_bysome_error; 
unconst r_producerop_and_const r_consumerop_w_bysome_error = 

(Is_Unconst r_ProducerOp_And_Const r_ConsumerOp_W_BySome{$$,syn_edge_set, 

$$,syn_vGrtGx_id_met_set, 

$$ , syn__id_constraint_set)) ; 

local STR unconstr_producerop_and_constr_consumerop_w_bysome_msg; 
unconst r_producerop_and_const r_consumGrop_v/_bysome_msg = 

{unconstr_producerop_and_constr_consumerop_v/_bysome_error} 


? -\n" 

# !For any edge, if the Producer is unconstrained, \n'' 

# a constrained consumer triggered By_Some\n" 

# can result in Data loss." 

/* - */ 


local BOOL has_error; 

has_error = {producerop_period_le_consumerop_error I 1 
sporadic_consumerop_wo_trigger_Grror I) 

constr_producerop_and_unconstr_consumerop_w_trigger_error || 
unconstr_producerop_and„constr„consumerop„w„byall_error I j 
unconstr_producerop_and_const r_consumerop_w_bysome_error}; 

local STR error_header; 
error_header = (has_error) 

? "\n" 


# «-\n" 

# SCHEDULING NOTICE:" 


local STR error_trailer; 
error_trailer = (has_error) 
? -\n" 

# -- 


); 

/* - */ 

graph 

; GraphNull 

{$$.vertex_id_set = OpIdSetNil; 

$$.syn_vertex_idjmet_SGt = OpIdMetSetNil; 

$$.syn_Gdge_set = EdgeSetNil; 

$$.edge_id„sGt = IdSetNil; 

} 

I Graph 

{$$.vertex_id_set = VGrtex_list.vertex_id_set; 

$$,syn_vertex_id_mGt_SGt = vertex_list-syn_vertex_id_met_set; 

$$.syn_edge_set = edge_list.syn_edge_set; 

$$.edge_id_set = edge_list.edge_id_sGt; 

}; 

/*-V 

vertex_list 

: VertexListNull 

{$$.vertex_id_set = OpIdSetNil; 

$$.syn_vertex_id_met_set = OpIdMetSetNil; 

} 

1 VertexListPair 

{$$.vertGX_id_set = OpIdSetUnion{a_vertex.vertex_id_sGt, 
vertex„list$2.vertex_id_set); 

$$,syn_vertex_id_met_set = 

Op_Id_Met_Set_Union{Get_Id_Met_Set {a_vertex) , 

vertex_list$2 . syn_vertex_id_met_set) ; 

}; 

a_vertex 

: AVertexNull 

{$$.vertex_id_set = OpIdSetNil; 

) 
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1 Avertex 

{$$.vertex_id_set = operator_id.vGrtex_id_set; 

); 

operator_id 

: OperatorldNull 

($$.vertex_id„set = OpIdSetNil? 

) 

I Operatorld 

{$$.vertex_id_set = SingletonOpIdSet(operator„id); 
}; 


/* - 

edge_list 

: EdgeListNil 

{$$.edge_id_set = IdSetNil; 

$$.syn_edge_set = EdgeSetNi1; 

) 

I EdgeListPair 

{$$.edge_id_set = IdSetUnion{an_edge.edge_id_set, edge_list$2.edge_id_set) 
$$.syn_edgG_SGt = 

Edge_SGt_Union (GGt_Edge__Set (an_edge) , 

edge_list$2.syn_edge_set) ; 

}; 


$$.syn_id_constraint„set = IdConstraintSetNil; 

) 

I ConstraintsPair{$$.constraint_op_id_set = OpIdSetUnion( 
a_constraint.constraint_op_id_set, 
constraints$2.constraint_op_id_set); 

$$.syn_i(l_constraint_set = (Valid_T_Constraint(a_constraint) || 

All_OR_Some_Trigger(a_constraint)) 

? Id_Constraint_Set_Union(Get_Id_Constraint_Set(a_constraint / 


*/ 


$$.inh_vertex_id_met_set)/ 


constraints$2.syn_id_constraint_set) 
: constraints$2.syn_id_constraint_set; 


a_constraint.inh_vertex„idjnet_set = $$.inh_vertex_id_met_set; 
constraints$2.inh_vGrtGx_id_met_set = $$.inh_vertex_id_mGt_set; 


}; 


a_constraint 

: AConstraintNull 

{$$.constraint_op_id_set = OpIdSetNil; 

} 

i AConstraint 

{$$.constraint_op_id_set = SingletonOpIdSet(operator_id); 


an_edge 

: AnEdgeNul1 

{$$.edgG_id_set = IdSetNil; 

) 

I AnEdge 

{$$.edgG_id_set = SingletonIdSet(id); 

); 

/*__-*/ 

declarations 

: Declarations 

{$$. streain_id_set = optional_streams, stream_id_set; 

}; 

op t i on a 1 _s t r earns 

: StreamsNull, StreamsPrompt 
{$$.strearo_id_set = IdSetNil; 

) 

t Streams 

{$$.stream_id_set = type_declarations.id_set; 

)? 


/* - */ 

cc 

: CcNull 

{$$.constraint_op_id_set = OpIdSetNil; 

$$.syn_id_constraint_sGt = IdConstraintSetNil; 

) 

I Cc 

{$$.constraint_op_id_sGt = constraints.constraint_op_id_set; 

$$.syn_id_constraint_sGt = constraints.syn„id_constraint_set; 
constraints.inh_vGrtex_id_mGt_sGt = $$ . inh_vertex_id_met_set; 

); 

constraints 

: ConstraintsNull 

{$$.constraint_op_id_set = OpIdSetNil; 


/* An Unconstrained Operator (no MET) should have NO timing constraints. */ 
local BOOL unconstrained_op_with_constraints_error; 
unconstrained_op_v7ith_constraints_error = 

(Partial_Constraint (a_constraint) 

&& !Belong2Constrained_pperator(a_constraint, 

$$.inh_vertGx_id_met_set)); 

local STR unconstrained_op_with_constraints_msg; 
unconstrained_op_with_constraints_msg = 

(unconstrained_op_with_constraints_error) 

? "\n- 

! Unconst rained Operators(no MET) \n’' 
do not have timing constraints." 

/*-*/ 

/* All Constrained Operators must be either Periodic XOR Sporadic. */ 
local BOOL invalid_time_constraint_error; 

invalid_time_constraint_error = (!unconstrained_op_with_constraints_error 

&& Partial_Constraint(a_constraint) 

£c& ! Valid_T_Constraint (a_constraint)) ; 
local STR invalid_time_constraint_msg; 
invalid_time_constraint_msg = 

(invalid_time_constraint_error) 

? "\n" 

!A11 constrained Operators must be\n“ 

Periodic (Per & FW) XOR Sporadic (MCP & MRT) “ 

/*-*/ 

local BOOL unschedulable_periodic„error; 

unschedulable_periodic_error = (!unconstrained_op_with_constraints_error 

&& !invalid_time_constraint_error 
&& Unschedulable_Periodic_Op(a_constraint , 

$$.inh_vertex_id_met_set)); 

local STR unschedulable_periodic_msg; 

unschedulable_periodic_msg = (unschGdulable_periodic_error) 

? “\n“ 
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!This Periodic Operator is not schedulable. 


local BOOL unschedulable_sporadic_error; 

unschedulable_sporadic_error = (1 unconstrained_op_with_constraints_error 

&& ! invalid_time_constraint_error 

ScSc lInschedulable_Sporadic_Op {a_constraint, 

$$ . inh_vertex_id_.met„set)) ; 

local STR unschedulable_sporadic_msg; 

unschedulable_sporadic_msg = (unschedulablG_sporadic_error} 

? "\n" 

!This Sporadic Operator is not schedulable. 


local BOOL period_only_error; 

period_only_error = (lunconstrained_op_with_constraints_error 
&& Iunschedulable_pGriodic_error 
&& ! unschedulable__sporadic_error 
&& !invalid_time_constraint_error 
&& Period_Only{a_constraint)); 
local STR period_only_msg; 
period_only_msg = (period_only_error) 

? "\n- 

!If left unspecified,\n" 

Finish_Within will default to Period. 


local BOOL finish_within_only_Grror; 

f inish_within_only_error = (! unconstrainGd_op_with_constraints_error 

&& !unschGdulable„periodic_error 
&& !unschedulable_sporadic_error 
&& •invalid„time_constraint_error 
ScSc FinishVJithin_Only (a_constraint)) ; 
local STR finish_within_only_insg; 

f inish_within_only_msg = (f inish_within_only_error) 

? "\n" 

!If left unspecified,\n“ 

Period will default to Finish_Within. 


local BOOL mrt_only_error; 

mrt_only_error = (!unconstrained_op„with_constraints_error 
&& !unschedulable_periodic_Grror 
&& lunschedulable_sporadic_error 
&& !invalid_time_constraint_error 
&& MaxResTime_Only(a_constraint)); 
local STR mrt_only_msg; 
mrt_only_msg = {mrt_only_error) 

? "\n'' 

!If left unspecified, \n'' 

MinCallPeriod v/ill default to MaxResTime - MET. 


local BOOL mcp_only_Grror; 

mcp_only_error = {!unconstrained_op_with_constraints_error 
&& Iunschedulable_periodic„error 
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&& !unschedulable_sporadic_error 
&& !invalid_time_constraint_error 
&& MinCallPeriod_Only(a_constraint)); 
local STR mcp_only_msg; 
mcp_only_msg = (mcp_only_error) 

? "Xn- 

!If left unspecified,\n" 

MaxResTime will default to MinCallPeriod + MET. 


local BOOL has_error; 

has_error = (inyalid_time_constraint_error || 

unconstrained_op_with_constraints„error j | 
unschedulable_periodic_error j1 
unschedulable_sporadic_error |j 
period_only„error |I 
finish_within_only_error j| 
mrt_only_error I I 
mcp_only_error); 

local STR error_header; 
error_header = (has_error} 

? "\n" 


SCHEDULING NOTICE; 


local STR error_trailer; 
error_trailer = (has_error) 

? “\n" 

# “- 


component 
/* dropped... 

: Op{ 

added...* / 

; NoComponent{ 

$$.syn_vertex_id_met_set 
$$. syn_id_constraint__set 


OpIdMetSetNil; 
IdConst raintSetNi1; 


I Op{ 

$$•syn_vertex_id_met_set = operator_impl.sj 
$$.syn_id_constraint_set = operator_impl.sj 
local BOOL is_root; 
is_root = (id != IdNull} && 

IsElement(id, {prototype.syn„root_ids}) 


operator_impl.syn_vertex_id_met_set; 
operator_impl .syn„id__constraint_set ; 


local STR root_message; 

root_message = (IsElement(id, (prototype.syn_root_ids))) 

? "\n--\n-- This Is A Root Operator" 


local BOOL multiple_root_error; 

multipie_root_error = (id != IdNull) && 
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IsElement(id, 

{prototype.syn_multiple_root_ids}); 

local STR multiple_root_message; 

mult iple_root_message = (multiple_root_error) 

? "\n--\n-- You have multiple roots\n-- Please 

delete the obsolete ones'* 


local BOOL multiple_op_spec_error; 
multiple_op_spec_error = (id != IdNull) && 

IsElement(id, (prototype.syn_multiple_op_spec)); 

local STR mult iple_op_spec_message; 

multiple_op_spec_message = (multiple_op_spec_error) 

? "\n-- \n— This Operator Has More Than 1 Operator 
Spec\n-“ Consistencies will not be enforced Xn-- in this operator" 


local BOOL also_defined_as_type_error; 
also_def ined_as_type_error = (id != IdNull) && 

(De£inedType{id, (prototype.syn_defined_types)) > 0); 

local STR also_defined_as_type„message; 

also_defined_as_type_message = (also_defined_as_type_error) 

? “\n~~ \n-~ Id denotes both as Operator and Type" 


local IdSet inh_input_id_set; 
inh_input_id_set = IdSetUnion( 

Extract_Input_Id_Set(id, (prototype.syn_defined_operators)), 
Extract_Input_Id_Set(id, (prototype.syn_defined_types))); 

local IdSet inh_output_id_set; 
inh_output_id_set = IdSetUnion( 

Extract_Output_Id_Set(id, (prototype.syn„defined_operators)), 
Extract_Output_Id_Set(id, (prototype,syn_de£ined_types})); 

local IdSet input_id_set; 

input_id_set = operator_spec.input_id_set; 

local IdSet output_id_set; 

output_id_set = operator_spec.output_id_set; 

local IdSet undefined„input_id; 

undefined_input_id = IdSetDif£erence(inh_input_id_set, input_id_set); 
local IdSet obsolete_input_id; 

obsolete_input_id = IdSetDifference(input_id_set, inh_input_id_set); 
local IdSet undefined_output_id; 

undefined_output_id = IdSetDifference(inh_output_icLset, output_id_set); 
local IdSet obsolete_output_id; 

obsolete_output_id = IdSetDifference{output_id_set, inh_output_id„set); 
local BOOL undefined_input_error; 

undefined_input_error = (!IsNull(undefined_input__id)); 

local STR undefined_input_message; 
undefined_input_message = (undefined_input_error) 

? "Xn-- \n— Missing Input Declarations \n" 


local BOOL obsolete_input_error; 
obsolete_input_error = (!IsNull(obsolete_input_id)); 

local STR obsolete_input_message; 
obsolete_input_message = {obsolete_input_error) 

? "\n-- \n-- Obsolete Input Declarations \n" 


local BOOL undefined_output_error; 

undefined_output_error = (!IsNull(undefined_output_id)); 

local STR undefined_output_message; 

undefined_output_message = (undefined_output_error) 

? "\n— Xn-- Missing Output Declarations Xn" 


local BOOL obsolete_output_error; 
obsolete_output_error = (1IsNull(obsolete_output_id)); 

local STR obsolete_output_message; 
obsolete_output_messagG = (obsolete_output_error) 

? "Xn-- Xn-- Obsolete Output Declarations Xn" 


local type_declarations inh_input_declarations; 
inh_input_declarations = Build_'iype_Decl ( 
inh_input _id_se t, 

{prototype.syn_definGd_type_decl}); 


local type_declarations inh_output„declarations; 
inh_output_declarations = Build_Type_Decl{ 
inh_output_id_set, 

(prototype.syn_de£ined_type_decl)); 

local IdSet input_type_error_set; 
input_type_error_set = Extract_1Vpe_Error_Set ( 

IdSetIntersect(input„id_set, inh_input_id_set), 
operator_spec.inputs_types, 
inh_input_declarations); 

local BOOL input„type_error; 
input_type_error = (!IsNull(input_type_error_set)); 

local STR input_type_error_message; 
input_type_error_message = (input_typG_error) 

? "Xn— \n-- Input lype Declaractions Does Not MatchXn- 
Stream Declarations in Parent OperatorsXn" 


local IdSet output_type_error_set; 
output_type_error__set = Extract_Type_Error_Set ( 

IdSetIntersect(output_id_set, inh_output_id_set), 
operator_spec.outputs_types, 
inh_output_declarations); 

local BOOL output_type_error; 
output_type_error = (!IsNull{output_type„error_set)); 

local STR output_type_error_message; 
output_type_error_message = (output_type_error) 

? “Xn-- Xn-- Output Type Declaractions Does Not 
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Match\n-“ Stream Declarations in Parent Operators\n'‘ 


local time inh_met; 
inh„met = Extract_Met{ 

Operatorld{ 

Opt ionaITypeldNul1, 

id, 

OperatorldPairsNull), 

{prototype.syn_defined_operators)); 

local BOOL met_error; 

met_error = (!multiple_root_error && Dif ferent„Time{inh_met, 
operator_spec.syn_met)); 

local STR met_error_message; 
met_error_message = {met_error) 

? "\n-- \n-- Met Does Not Match Vertex Time in Parent 

Operator\n" 


local id loc_opGrator_id; 
loc_operator_id = id; 


local OpIdSet vertex_id_set; 

vertex_id_set = operator_impl,vertex_id_set; 

local IdSet edge_id_set; 

edge_id_set = operator_impl.Gdge_id_set; 

local IdSet stream_id_set; 

streanuid_set = operator_impl.strGam_id_set; 

local OpIdSet constraint_id_sGt; 

constraint_id_set = operator_impl.constraint_op_id_set; 

local IdSet state_id_set; 

state_id„set = opGrator_spGC.state_id„set; 

local IdSet obsolete_statG_id; 

obsolete_state_id = (Get_Impl_Form(operator_impl) == 2) 

? IdSetDifference{state_id_set, edge_id_set) 

: IdSetNil; 

local BOOL obsolete_state_error; 
obsolete_state_error = {!IsNull{obsolete_state_id)); 

local STR obsolete_state_message; 
obsolete„state_message = {obsolete_state_error) 

? "\n~- \n-- Obsolete State Declarations \n" 


local IdSet input„output_state_union_set; 
input_output_state_union_sGt = 

IdSetUnion{state_id_set, 

IdSetUnion(input_id„sGt/ output_id„set)); 

local IdSet undefined_stream; 
undefined_strearn = 


IdSetDifCerence(edge_id_set, 

IdSetUnion(stream_id_set, 

input_output_state_union_SGt)); 

local IdSet obsolGte_stream; 
obsolete_strGam = 

IdSetUnion( 

IdSetDifference(stream_id_set, edge_id_set), 

IdSetIntersect {stream_id_set, input_output_state_union_set)) ; 

local OpIdSet undefined_constraint; 
undefined_constraint = 

OpIdSetDifference{ 
vertGx_id_set, 
constraint_id_set); 

local OpIdSet obsolete_constraint; 
obsolete_constraint = 

OpIdSetDif ference( 
constraint_id_set, 
vertex_id_set); 

local BOOL undefined_stream_error; 

undefined_stream„error = (!IsNull(undefined_stream) ) ; 

local STR undefined_stream_message; 

undef ined_stream_message = (undef ined_stream_error) 

? "\n-- \n-- Missing Stream Declarations \n" 


local BOOL obsolete_stream_error; 
obsolete_stream_error = (!IsNull(obsolete_stream) ) ; 

local STR obsolete_st ream_jnessage; 
obsolete_stream_message = (obsolete_stream_error) 

? "\n-- \n-- Obsolete Stream Declarations \n'' 


local BOOL undefined_constraint_error; 
undefined„constraint„error = (! OpIdSetlsNull (undefined_constraint)) ; 

local STR undefined_constraint_mGssagG; 

undef ined_const rain t_jnessage = (undef ined__constraint_error) 

? "Vn— \n~- Missing Constraint Entries \n“ 


local BOOL obsoletG_constraint_Grror; 
obsoletG_constraint_error = ( [OpIdSet IsNull (obsolete_constraint)) ; 

local STR obsolGte_constraint_message/ 

obsolete_constraint_message = (obsolete_constraint_error) 

? "\n— \n-- Obsolete Constraint Entries \n" 


local BOOL has_error; 
has_error = (is_root || 

multipie_op_spec_error !| 
also_defined_as_type_error |1 

undefined_input_error I! 
obsolete_input_error Ij 
undefined_output_error 1 I 
obsolete_output_error || 
input_type_error |I 
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output_type_error I) 
undefined_stream_error || 
obsolete_stream„error 1| 
mGt_error }| 

undefined_constraint_error || 
obsolete_constraint_error); 

local STR error_header; 
error_header = {has_error) 
? ‘'Xn- 

ALERTS:" 


local STR error_trailGr; 
error__trailer = {has_error) 
? "\n-- \n- 
\n" 


store(default_store operator_id_store) local id operator_name; 
operator_name = id; 

store(default_store niulti_op_error_store) local BOOL local_multi_op_error; 
local_multi_op_error = multiple_op_spec_error; 

store(default_store states_ids_store) local IdSet local_states_idset; 
local„states_idset = state_id_SGt; 

store(default_store inh_input_ids_storG) local IdSet local_inh_input_id_set; 
local_inh_input_id_set = inh_input_id_set; 

store(default_storG inh_output_ids_store} local IdSet local_inh_output_id_set; 
local_inh_output_id_set = inh__output_id_set; 

store{default_storG input_error_store) local BOOL local_input_error; 
local_input_error = {undefined_input_error || obsolete_input_error I 1 
input_type_error); 

store(default_store output_error_store) local BOOL local_output_Grror; 
local_output_error = {undefined_output_Grror I I obsolete_output_error I I 
output_type_error); 

store(default„store inh_input_decl_store) local type_declarations 
local_inh_input_decl; 

local_inh_input_decl = inh_input_dGclarations; 

store{dGfault_store inh_output_decl_store) local type_declarations 
local_inh_output_decl; 

local_inh_output_decl = inh_output_declarations; 

store(default_store met_Grror_store) local BOOL local_met_error; 
local_met_error = met_error; 

store(default_store inh_met_store) local time local_inh_met; 
local_inh_jnet = inh_met; 

store(default_store impl_store} local INT is_composite; 
is_composite = Get_Impl_Form(operator_impl); 

store{default_store vertGx_ids_store) local OpIdSet local_vertex_idset; 
local_vertex_idset = vertex_id_set; 


store(deCault_store edge_ids_store) local IdSet local_edge_idset; 
local_edge_idset = edge_id_set; 


store(default_store streams_ids_store) local IdSet local„streams_idset; 
local„streams_idset = IdSetDif ference{edge_id_set, 

IdSetUnion (state_id__set, 

IdSetUnion(input_id_set, output_id_set))) ; 


store{default_store constraints_ids_store) local OpIdSet local_constraints_idset; 
local_constraints_idset = constraint_op„id_set; 


store{default_store stream_error_store} local BOOL local_stream_error; 
local_stream_error = (undefined_stream_error | i obsoletG„stream_error ) ; 

store(default_store constraint_error_store) local BOOL local_constraint_error; 
local_constraint_error = (undefined_constraint_error | | obsolete_constraint_error 


) 

I Data{ 

$$ ,syn„vertex_id_met_set = OpIdMetSetNil; 

$$ .syn_id_constraint_set = IdConstraintSetNil ; 
local id local_type„id; 
local_typG_id = id; 

local o_operators syn_o_operators; 
syn_o_operators = type_spec.defined_operators; 

local operator_impl_list syn_operator_impl_list ; 
syn_operator_impl_list = type_impl. syn_operator_impl_list; 

local BOOL multiple_type„spec_error; 
multiple_type_spGC_error = (id != IdNull) && 

IsElement(id, (prototype.syn_multiple_type_spGc)) ; 

local STR multiple_type_spec_message; 

multiple_type_spec_message = (multi pi e_type_spec_error) 
? ‘'\n— \n-- Multiply Defined Types " 


local BOOL also_defined_as_op_error; 
also_defined_as_op_error = (id != IdNull) && 

(Def inedOpr (id, {prototype.syn_def ined_operators}) > 0); 

local STR also„defined_as_op_message; 

also_defined_as_op_message = (also_def ined_as_op_error) 

? “\n-- \n-- Id denotes both as Operator and Type" 


local IdSet undefined_op_impl; 

undef ined_op_impl = (PSDLTVpelmpl (type_impl) 

? Extract_Undefined_Op_Impl_In_Data (type_spec. defined_operators, 
type_impl.syn„operator_impl_list) 

: IdSetNil); 

local BOOL undefined_op_impl_error; 

undefined_op_impl_error = (IdSetSize(undefined_op_impl) > 0) ; 


\n-- WARNINGS, ERRORS AND 
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local STR undefined_op_impl_mGSsage; 

undefined_op_impl_message = (undefined_op_impl_error) 

? "\n-- \n-- The Following Operators 


Impl:\n" 


Has No Operator 


local IdSet obsolete_op_impl; 
obsolete_op_impl = 

Extract_Obsolete_Op_Impl_In_Data {type_impl .syn_operator_impl_list / 
type_spec.defined_operators); 

local BOOL obsolete_op_impl_Grror; 

obsolete_op_impl_error = (IdSetSi 2 e{obsolete_op_impl} > 0); 
local STR obsolete_op_impl_message; 

obsolete_op_impl_message = {obsolete_op_impl_error) 

? "\n-- \n— The Following Operators Impl Are 

Obsolete; \n'' 


local BOOL has_error; 

has_error = (multipie_type_spec_error (! 
also_defined_as_op_error I I 
undefined_op_impl_error I! 
obsolete_op_impl_error 

) ; 

local STR error_header; 
error_header = (has_error) 

7 ..^n- \n-- WARNINGS, ERRORS AND 

ALERTS;" 


local STR error_trailer; 
error_trailer = (has_error) 
? "\n-- \n- 

\n" 


store(default_store t_undefined_op_impl_store) local IdSet 
local_undefined_op_impl_set; 

local_undefined_op_impl_set = undefined„op_impl; 

storG(default_store t_obsolete_op_impl_store) local IdSet 
local_obsolete_op_impl_set; 

local_obsolGte_op_impl_sGt = obsolete_op_impl; 
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^*****4r***************A****************************************************** 

**** This first set of functions were already existing and 
**** in support of the basic SDE. 

*****************************************************************************y 

/* - */ 

component GetOperator(component c) 

(with(c) 

(NoComponent:NoComponent, 

Data{i, ts, ti};NoComponent, 

Op(i, os, oi);Op{i, os, oi) 

) 

}; 

/* - */ 

component GetType{component c) 

{with(c) 

(NoComponent:NoComponent, 

Data(i, ts, ti);Data(i, ts, ti), 

Op(i, os, oi):NoComponent 

) 

); 

/* - */ 

type_declarations Get_Inputs(component c) 

(with(c) 

( NoComponent:TypeDecINi1, 

Op(i, os, oi):Get_Inputs_Decl_From_Inputs_List( 

Get_Inputs_List(os)), 

Data(i, ts, ti): 
with (ts) 

(TypeSpec(*, *, oo, *, *, *): 

Get_Inputs_Decl_From_0_Operators(oo) 

) 


) 

) 

); 

/* - */ 

typG_declarations Get_Inputs_Decl_From_Inputs_List(o_inputs_list oil) 

(with(oil) 

(InputsListNone riypeDeclNil, 

InputsListPair(oi, tail):Concat_TypG„DGcl_List( 

Get_Inputs_Decl_From_0„Inputs(oi), 
Get_Inputs_DGcl_Fronv_Inputs_List (tail)) 

) 

}; 

/* - 

typG_declarations Get_Inputs_Decl_From_0_Inputs(o_inputs oi) 

(with(oi) 

(OpInputsNone:TypeDecINi1, 

OpInputs(td, rt):td 

) 


/* - */ 

type_declarations Get_0utputs_Decl_From_0_0perators(o_operators oo) 

(with(oo) 

(OperatorNil: TypeDecINi1, 

OperatorPair(tos, tail); 
with (tos) 

(TOpSpecNil:Get_Outputs_Decl_From_0_Operators(tail), 

TOpSpec(*, os): Concat_Type_Decl_List( 

Get_Outputs_Decl_From_Outputs__List(Get_Outputs_List(os)), 
Get_Outputs_Decl_,From_0_Operators (tai 1) ) 

) 

) 


/* - */ 

type_declarations Get_Outputs(component c) 

(with(c) 

( NoComponent:TypeDecINi1, 

Op(i, os, oi);Get_Outputs_Decl_From_Outputs_List( 

GGt_Outputs_List(os)), 

Data(i, ts, ti): 
with (ts) 

(TypeSpec(*, *, oo, *, *, *): 

Get_Output s_Decl_From_0_0perat ors(oo) 

) 


/* - */ 

type_declarations GGt_Outputs_Decl_From_Outputs_List(o_outputs_list oil) 

(with(oil) 

(Output sListNone:TypeDeclNi1, 

OutputsListPair(oo, tail):Concat_Type_Decl_List( 

Get_0utputs_Decl_From_0_0utputs(oo), 
Get_Outputs„Decl„From_Outputs_List(tail)) 

) 

}; 

/* - */ 

typG„declarations Get_0utputs_Decl_From_0_0utputs(o_outputs oo) 

{with(oo) 

(OpOutput sNone; TypeDeclNi1, 

OpOutputs(td, rt):td 

) 


) 


); 


/* - */ 

typG„declarations Get_Inputs_Decl_From__0_jOperators (o_operators oo) 

(with(oo) 

(OperatorNil:TypeDecINi1, 

OperatorPair(tos, tail) ; 
with (tos) 

(TOpSpecNil;Get_Inputs_Decl_From_p_Operators(tail), 

TOpSpec(*, os): Concat_Type_Decl_List( 

Get_Inputs_Decl_From_Inputs_List(Get_Inputs„List(os)), 
Get_Inputs_Decl_From_0_Operators(tail)) 


/* - 

type_declarations Get_Streams(component c) 

(with(c) 

( NoComponent: TypeDeclNi1, 

Op(i, os, oi):Get_St rGams_Decl_From_Op_Impl(oi), 

Data(i, ts, ti): 
with (ti) 

(TypelmplNull:TypeDeclNil, 

AdaTypelmpl(*);TypeDecINi1, 

Typelmpl(*, oil):Get_Streams_DGcl_From_Op_Impl_List(oil) 

) 

) 
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) ; 

/* - 

type_declarations Get_Streams_Decl„Froin_Op_Iinpl„List (operator_impl_list oil) 
{ with (oil) 

( OpImplListNull:TypeDeclNil# 

OpIraplListPair(toi^ tail): 
with (toi) 

( TOpImplNull:Get_Streams_Decl_From_Op_Impl_List(tail), 

TOpImpl(*/ oi):Concat_Type_Decl_List( 

Get_Streams_Decl_From_Op_Impl(oi), 
Get_Streams_Decl_From_Op_Impl_List(tail)) 

) 

) 

}; 


type_declarations Get_States(component c) 

(with(c) 

( NoComponent:TypeDecINi1, 

Op(i, os, oi):Get_States_.Decl_From„State„List(Get_State_List(os)), 
Data(i, ts, ti): 
with (ts) 

(TypeSpec(*, *, oo, *, *, *): 

Get_States_Decl_From„0_OpGrators(oo) 

) 

) 


Data(i, ts. 


ti) : 

with (ti) 
( 


TypelmplMull: 
AdaTypelmpl(*): 
Typelmpl(*, oil): 

Get„Vertex_List_From_Operator_Impl_List(oil) 


VertexListWul1, 
VertexListNull, 


) 


}; 


vertex_list Concat_VGrtex_List (vertex_list vll, vertex_list vl2) 
{with(vll) 

(VertexListNull:vl2, 

*/ VertexListPair(av, tail):av:;Concat_Vertex_List(tail, vl2) 

) 


); 


/* - 

edge_list GetEdges(component c) 

(with(c) 

(NoComponent:EdgeListNil, 

Data(i, ts, ti):EdgeListNil, 
Op(i, os, oi):Get_Edge_List(oi) 

) 


}; 

/* - */ 

type„declarations Get_States_Decl_From_0_Operators(o_operators oo) 

(with(oo) 

(OperatorNil .-TypeDeclNil, 

OperatorPair(tos, tail): 
with (tos) 

(TOpSpecNil:Get_States_Decl_From_0_Operators(tail), 

TOpSpec(*, os): Concat_'IVpe_Decl_List ( 

Get_States_Decl_From_State_List(Get_State„List(os)), 
GGt_States_Decl_From_0_Operators(tail)) 

) 

) 

); 

/*-V 

type-declarations Get_States_Decl_From-State_List(o_states_list osl) 

(with(osl) 

(StatesListNone;'IVpeDeclNil, 

StatesListPair(os, tail):Concat-Type-Decl-List( 

Get_States-Decl_From_0_State(os), 
Get_States_Decl-From_State—List(tail)) 

) 

}; 

/* - */ 

type-declarations Get-States_Decl-From-0_State(O-States os) 

(with(os) 

(OpStatesNone:TypeDeclNil, 

OpStates(td, el, rt):td 

) 


); 

/* - */ 

vertex—list GetVertices(component c) 

(with(c) 

(NoComponent:VertexListNull, 

Op(i, os, oi):Get—Vertex—List(oi), 


/* - 

edge—list Concat—Edge—List(edge—1ist ell, edge—list el2) 
{with(ell) 

(EdgeListNi1:el 2, 

EdgeListPair(ae, tail):ae::Concat_Edge—List(tail, el2) 

) 


/* - 

INT DefinedOpr(id ident, psdl-Components ol) 

(with (ol) 

(PsdlNil:0, 

PsdlPair(c, 1): with (c) 

(NoComponent:DefinedOpr(ident, 1), 

Data(i, os, oi):DefinedOpr(ident, 1), 

Op(i, os, oi):((ident =:=i) ?1:0)+DefinedOpr (ident, 1) 

) 

) 


/* - 

INT Definediype(id ident, psdl_components ol) 

(with (ol) 

(PsdlNil:0, 

PsdlPair(c, 1): with (c) 

(NoComponent :0+Defined'IVpe (ident, 1) , 

Data(i, os, oi):((i==ident)?1:0)+DefinedType(ident, 1), 
Op(i, os, oi):0+DefinedType(ident, 1) 

) 

) 


/* - 

INT DefinedTYpeOp(operator—id ident, psdl—components ol) 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 


120 
















APPENDIX D 


{ With (ident) 

( OperatorldNull:0, 

Operatorld(tid, oid/ *) : 
with (tid) 

( OptionalTypeldNull:0, 

OptionalTypeldPrompt:0, 

OptionalTypeId{otd): 
with (ol) 

{ PsdlNil: 0, 

PsdlPair(C/ 1): 
with (c) 

{ NoComponent:DefinedTypeOp(ident/ 1), 

Data(i, ts, ti); 

({i==otd) 

? DefinedOpIniypespec(oid, ts) 
: 0 ) 

+ DefinedTypeOp{ident, 1)/ 

Op(i, os, oi);DefinedTypeOp(ident, 1) 


INT DefinedOpInTypespec(id i, type_spec ts) 

{ with(ts) 

{ 'IVpeSpec{*, *, oo, *, *, *) ;OpIsDefinedinTypeSpGc(i, oo) 


INT DefinedVertex{operator_id ident, vert€X_list vl) 
{with (vl) 

(VertexListNull;0, 

VertexListPair(av, tail); 
with (av) 

(AVertexNull:DefinedVertex{ident, tail), 
AVertex(oi, *): 
with (oi) 

( OperatorldNull;DefinedVertex(ident, tail), 
Operatorld{*, *, *): 

(EqualOpId(oi,ident)?1;0) 

+DefinedVertex(ident, tail) 

) 


INT OpIsDefinedinTypeSpec(id i, o_operators oo) 

{ with (oo) 

( OperatorNil; 0, 

OperatorPair(tos, tail); 
with(tos) 

( TOpSpecNil: OpIsDefinedinTypeSpec(i,tai1), 

TOpSpec(tid, *); {{i==tid)?1:0)+OpIsDefinedinlVpeSpec(i 


/*__ - 

INT OpIsDefinedinTypelmpl(id i, operator_impl_list oil) 
{ with (oil) 


Auxiliary Functions 

{ OpImplListNul1: 0, 

OpImplListPair(toi, tail): 
with(toi) 

( TOpImplNull; OpIsDefinedinlVpelmpl(i, tail), 

TDpImpl{t_id, oi): 

({i==t_id)?l:0} 

+ OpIsDefinedinTypelmpl(i, tail) 

) 

) 

} ; 

/* - 

id GetDeclTypGld(decl„type_name t) 

(with (t) ( 

DTypeSimpleld(i):i, 

DTi'peUsGrDefined(i, *) : i, 

DiypeNameNull; IdNull, 

Diypelnteger: IdNull, 

DTVpeReal; IdNull, 

DTVpeBoolean; IdNull 

/* 

DTypeException: IdNull, 

*/ 

) 

) ; 

/* - 

/* 

This function counts the number of times that "i" is defined in the id_list 
idl. 

*/ 

/*- 

INT IdIsDefined(id i, id_list idl) 

(with (idl) (IdNil; 0, 

IdPair(ix, idlx):((i == ix)?1;0)+IdIsDefined{i, idlx))); 

t 

/* - 

INT IdlsDefInTVpes(id ident, type_declarations tdl) 

(with (tdl) 

(TypeDeclNil: 0, 

TypeDeclPair(adl, tdl2): with(adl) 

(ADeclNil; 0+IdlsDefInTypes(ident, tdl2), 

ADecl(idl, *); IdlsDefinGd(ident, idl)+IdlsDefInTypes(ident, tdl2) 

} 

) 

) ; 

/* - 

type_declarations GetGenericsTypes(o_generics ogen) 

(with(ogen) 

(OpGenericsNone; TypeDeclNil, 

OpGenGrics(td, rt): td 

) 

) ; 

/* -- 

type_declarations GetInputsTypes(o_inputs oinp) 

{with(oinp) 

(OpInputsNone: TypeDeclNil, 

OpInputs(td, rt); td 
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type_declarations GetOutputsTypes(o_outputs ooutp) 
{with(ooutp) 

{OpOutputsNone; TypeDeclNil, 

OpOutputs(td, rt): td 


? IdSetUnion( 

SingletonIdSet(i), 

Extract_Root_Components(tail, vl)) 
: Extract_Root_Components{tail, vl}) 


type_declarations GetStatesTypes{o_states ostat) 
{with(ostat) 

(OpStatesNone: TypeDeclNil, 

OpStates(td, el, rt): td 


BOOL IsOperator(component c) 
{ 

with{c) 

(NoComponent:false, 
Data(i, ts, ti);false, 
Op(i, os, oi):true 


BOOL IsType{component c) 

{ 

with(c) 

(NoComponent: 
Data{i, ts, ti): 
Op{i, os, oi): 

) 

); 


IdSet Extract_Undefined_Op(vertex_list vl, psdl_components o) 

(with (vl) 

(VertexListNull:IdSetNil, 

VertexListPair(av, tail); 
with (av) 

( AVertexNull; Extract_Undefined_Op(tail, o) , 

AVertex(oi, *): 
with (oi) 

( OperatorldNul1; Extract_Undefined_Op(tail, o) , 

Operatorld(tid, oid, *); 

with (tid) 

( OptionalTypeldNull; 

{(DefinedOpr(oid, o) == 0) 

? oid::Extract_Undefined_Op(tail, o) 

: Extract_Undefined_Op{tail, o) ), 

OptionalTVPsIdPrompt: 

{(DefinedOpr(oid, o) == 0) 

? oid;;Extract_Undefinecl_Op(tail, o) 

; Extract_Undefined_Op{tail, o)), 

OptionalTypeId(*); 

Extract_Undefined_Op(tail, o) 


id GetIdO(component c) 

{with{c) (NoComponent:IdNull, 

Data(i, ts, ti);IdNull, 

Op{i, os, oi): with (i) (IdNull;IdNull, 


Id{v);Id(v)) 


IdSet Extract_Root_Components(psdl_components o, vertex_list vl) 
(with (o) 

(PsdlNil: IdSetNil, 

PsdlPair(c, tail); 
with (c) 

( NoComponent:Extract_Root_Components{tail, vl), 

Data(*, *, *):Extract_Root_Components(tail, vl), 

Op{i, *, *); 
with (i) 

( IdNull; Extract_Root_Components{tail, vl), 

Id(v): (Operator_Id_Not_In_Vertex_List{ 

Operatorld( 

OptionaliypeldNull, 


/* --- */ 

OpIdSet Extract_Undefined_Type_Op{vertex_list vl, psdl_components o) 

{with (vl) 

(VertexListNull:OpIdSetNil, 

VertexListPair(av, tail): 
with (av) 

( AVertexNull; Extract_Undefined_Type_Op(tai1, o), 

AVertex(oi, *); 
with (oi) 

( OperatorldNul 1: Extract_Undef ined_Type__Op (tail, o), 

Operatorld(tid, oid, *) : 

v;ith (tid) 

( OptionalTypeldNull; 

Ext ract_Undefined_Type_Op(tail, o), 

OptionalTypeldPrompt: 

Extract_Undefined_Type_Op(tail, o), 

OptionalTypeId(*); 

{ (Defined‘IVpeOp(oi, o) == 0) 

? oi;:Extract_Undefined_Type„Op(tail, o) 

: Extract_Undefined„Type_Op{tail, o)), 


OperatorldPairsNuIl) , 
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}; 


/*-*/ 

IdSet Extract_Multiple_Op_Spec_Id(psdl_coinponents o) 

{with (o) 

(PsdlNil: IdSetNil, 

PsdlPair{c, tail); 
with (c) 

( NoComponent:Extract_Multiple_Op_Spec_Id{tail) , 

Data(*, *, *):Extract_Multiple_Op_Spec„Id(tail}, 

Op(i, *, *); 
with (i) 

{ IdNull: Extract_Multiple_Op_Spec_Id{tail) , 

Id(v); ((DefinedOpr(i, tail) > 0) 

? IdSetUnion( 

SingletonIdSet(i), 

Extract_Multiple_Op„Spec_Id(tail)) 

: Extract_Multiple_Op_Spec_Id(tail)) 

) 

} 

) 

); 

/*-*/ 

IdSet Extract_Multiple_Type_Spec_Id(psdl_components o) 

(v/ith (o) 

(PsdlNil: IdSetNil, 

PsdlPair(c, tail): 
with (c) 

{ NoComponent:Extract_Multiple_Type_Spec_Id(tail), 

Data{i, *): 
with (i) 

( IdNull: Extract_Multiple_Type_Spec_Id(tail)/ 

Id(v): ((DefinedType(i, tail) > 0) 

? IdSetUnion{ 

SingletonIdSet{i), 

Extract_Multiple_Type_Spec_Id(tail)) 

: Extract_Multiple_Type_Spec_Id(tail)) 

). 

Op(*, */ *) :Extract_Multiple_'IVpe_SpGc_Id(tail) 

) 

) 

); 

/*-V 

IdSet Extract_Op_Type_Spec_Id{psdl_coinponents o, psdl_coinponents t) 

(with (o) 

(PsdlNil: IdSetNil, 

PsdlPair(c, tail): 
with (c) 

( NoComponent:Extract_Op_Type_Spec„Id{tail, t), 

Data(*, *, *) :Extract_Op_'IVpe_Spec„Id(tail, t). 

Op(i, * , *) : 

v/ith (i) 

{ IdNull: Extract_Op_Type_Spec_Id(tail, t), 

Id(v): ({DefinedType(i, t) >0) 

? IdSetUnion{ 

SingletonIdSet(i), 

Extract_Op_Type_SpGc_Id(tail, t)) 

; Extract_Op_Type_Spec_Id(tail, t)) 


) 

) 

) 

); 

/* - */ 

OpIdSet Extract_Multiple_Vertices(vertex_list vl) 

(with (vl) 

(VertexListNull:OpIdSetNil, 

VertexListPair(av, tail): 
with (av) 

{ AVertexNull:Extract_Multiple_Vertices{tail), 

AVertex(oi, *): 
with (oi) 

{ OperatorldNull: Extract J«Iultiple_Vertices (tail) , 

OperatorId(*, *, *) : 

((DefinedVertex(oi, tail) > 0) 

? OpIdSetUnion{ 

SingletonOpIdSet(oi), 

Extract„Multiple_Vertices(tail)) 

; Extract_Multipie_Vertices(tail)) 

) 

) 

) 

); 

/* - */ 

IdSet Extract_Multiple_TD(typG_declarations td) 

(with (td) 

{lypeDeclNil:IdSetNil, 
lypeDeclPair(ad, tail): 
with (ad) 

{ ADeclNil:Extract_Multiple_TD (tail), 

ADecl(idl, *): 

IdSetUnion( 

Extract„Multiple_Ids_In_Idl_N_TD(idl, tail) , 

Extract_Multiple_TD(tail)) 

} 

) 

}? 

/* - */ 

IdSet Extract_Multiple_Ids_In_Idl„N„TD{id_list idl, type_declarations td) 

(with (idl) 

(IdNil: IdSetNil, 

IdPair(i, idl_tail): 
with (i) 

( IdNull:Extract_Multiple_Ids_In_Idl_N_TD{idl_tail, td) , 

Id(*): 

((IdIsDefined(i, idl_tail) + IdlsDefInTypes(i, td)) > 0) 

? IdSetUnion( 

Singlet onIdSet(i), 

Extract_Multiple_Ids_In_Idl_N_TD(idl_tail, td)) 

: Extract_Multiple_Ids_In_Idl_N_TD(idl_tail, td) 

) 

) 

); 


/* - */ 

IdSet Extract„Type_Error_Set(IdSet ids, type_declarations tdl, type_declarations td2) 
(with(ids) 

(IdSetNil:IdSetNil, 
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IdSetPair(i, tail);(Identical_Type_Name( 
Find_Type_Name{i, tdl)/ 

Find„Type_Name(i, td2)) 

? Extract_TVpe_Error_Set(tail, tdl, td2) 

: i::Extract_Type_Error_Set{tail, tdl, td2)) 

) 

) ; 


/* - */ 

IdSet Extract_Undefined_Op_Impl_In_Data(o_operators oo, operator_iropl_list oil) 

{with (oo) 

(OperatorNil:IdSetNil, 

OperatorPair(tos, tail): 
with (tos) 

( TOpSpecNil: Extract_Undefined_Op_Impl_In_Data(tail, oil), 

TOpSpec(tid, *): 
with (tid) 

( IdNull:Extract_Undefined_Op_Impl_In_Data(tail, oil), 

Id(*): 

((OpIsDefinedinTypelmpl(tid, oil) == 0) 

? tid::Extract_Undefined_Op_Impl_In_Data(tail, oil) 

: Extract__Undefined_Op_Impl„In_Data(tail, oil)) 

) 

) 

) 

}; 


/*-*/ 

IdSet Extract_Obsolete_Op_Iinpl_In_Data(operator_impl_list oil, o_operators oo) 

(with (oil) 

(OpImplListNull:IdSetNil, 

OpImplListPair(toi, tail): 
with (toi) 

( TOpImplNull: Extract_Obsolete_Op_Impl„In_Data(tail, oo), 

TOpImpl(oid, *): 
with (oid) 

( IdNull:Extract_ObsolGte_Op_Impl_In_Data(tail, oo), 

Id(*): 

((OpIsDefinedinTypeSpec(oid, oo) == 0) 

? oid: :Extract_ObsolGtG_Op_Iinpl_In_Data (tail, oo) 

: Extract_ObsoletG_Op_Impl_In_Data(tail, oo)) 

) 

) 

) 

) ; 


/* - 

IdSet Get_Input_Id_Set_From_'IVDpSpec(t_oper_spec tos) 

{ with (tos) 

( TOpSpecNil;IdSetNil, 

TOpSpec(*, os): 
with(os) 

{ OperatorSpec(g, i, o, s, e, t, k, inf, for); 

Make_Input_Id_Set(i) 

) 

} 

); 

/* - */ 

IdSet Get_Output_Id_Set_From„TOpSpGc{t„oper_spec tos) 

( with (tos) 

( TOpSpecNil:IdSetNil, 

TOpSpec(*, os): 
with(os) 
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( OperatorSpec(g, i, o, s, e, t, k, inf, for): 

Make_Output_Id_Set(o) 

) 

) 

}; 

/*- 

IdSet GGt_State_Id_SGt_From_TOpSpec (t_opGr„spec tos) 
{ with (tos) 

( TOpSpecNil:IdSetNil, 

TOpSpec(*, os): 
with{os) 

( OperatorSpec(g, i, o, s, e, t, k, inf, for); 

Make_State_Id_Set(s) 

} 

) 

); 

/* - 

time Get_Met__From_TOpSpec (t_oper_spec tos) 

{ with (tos) 

( TOpSpecNil;TimeNull, 

TOpSpec(*, os): 
with(os) 

( OperatorSpec(g, i, o, s, e, t, k, inf, for): 
with (t) 

{ OpTimingInfoNone:TimeNull, 
OpTiminglnfoPrompt:TimGNull, 
OpTimingInfo(ti, *) ; ti 

) 

) 

) 

); 

/* - 

IdSet Make_Input_Id_SGt(o_inputs_list ol) 

( 

v;ith (ol) 

( InputsListNone:IdSetNil, 

InputsListPair(oi, tail) : 
with (oi) 

{ OpInputsNone:Make_Input_Id_Set(tail), 
OpInputs(td, rt): 

IdSetUnion( 

Make_Id_Set_From_’IVpe_Decl (td), 

Make_Input_Id_Set(tail)) 

) 

) 

) ; 

/* - 

IdSet Make_Output_Id_Set (o_outputs_list ol) 

( 

v;ith (ol) 

( OutputsListNone!IdSetNil, 

OutputsListPair(oo, tail); 
v/ith (oo) 

( OpOutputsNone:Make_Output_Id_Set(tail), 
OpOutputs(td, rt); 

IdSetUnion( 

Make_Id_Set_From_‘IVpe_Decl (td), 
Make_Output_Id_Set(tail)) 

) 

} 

); 

/* - 

IdSet Make_StatG_Id_Set(o_states_list ol) 
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{ 

v/ith (ol) 

( StatesListNone:IdSetNil, 

StatesListPair(os^ tail): 
with (os) 

( OpStatesNone:Make_State_Id_Set(tail), 

OpStates{td, el, rt): 

IdSetUnion{ 

Make__Id_Set_From_Type_Decl (td) , 

MakG_State„Id„Set(tail)) 

) 

) 

}; 

/* - */ 

IdSet Make_Id_Set_From_Type„Decl{type_declarations td) 

{ 

with (td) 

( lypeDeclNilrldSetNil, 
lypeDeclPair(ad, tail): 
with (ad) 

( ADeclNil:Make_Id_Set_From_Type_Decl(tail) , 

ADecl(idl, dtn): 

IdSetUnion( 

Make_Id_Set_From_Id_List(idl) , 

Ma ke_Id_Set_From_Type_Dec1(t ai1)) 

) 

) 

}; 

/* - */ 

IdSet MakG_Id„SGt_From_Id_List(id_list idl) 

{ 

with (idl) 

( IdNil:IdSetNil, 

IdPair(id, tail): 

IdSetUnion( 

SingletonIdSet(id), 

Make_Id_Set_From_Id_List(tail)) 

) 

}; 

/* - */ 

BOOL Identical_Type_Name(decl_type_name nl, decl_type_name n2) 

(with(nl) 

(DTypeNameNul1; 
with(n2) 

( DiypeNameNull:true, 

Diypelnteger:false, 

DiypeReal:false, 

DTVpeBoolean;false, 

/* 

DiypeException:false, 

*/ 

D'IYpeSiinplGld(*) : false, 

DTVpeUserDefined(*,*);false 

). 

DTypelnteger: 
with(n2) 

( DTVpeNameNull:false, 

Diypelnteger;true, 

DIVpsR^al • false, 

Diyp^Boolean;false, 

/* 

DTypeException:false. 
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*/ 

DTypeSimpleId(*):false, 
DTypeUserDefined(*,*);false 

}. 

DTypeReal: 
with(n2) 

( DTypeNameNul1:false, 
DTypelnteger:false, 

DTypeRea1:t rue, 

DTypeBoolean:false, 

/* 

DTypeException:false, 

V 

DTypeSimpleldt*):false, 
DTVpeUserDefined(*,*):false 

). 

DTypeBoolean: 
with(n2) 

( DTypeNameNul1:fa1se, 
DTypelnteger:false, 
DTypeReal:false, 
DTypeBoolean:t rue, 

/* 

DTypeException:fa1se, 

V 

DTypeSimpleId(*);false, 
DTypeUserDefined(*,*):false 

), 

/* 

DiypeException: 
with(n2) 

( DTypeNameNull:false, 
DTypelnteger:false, 
DTypeReal:false, 
DTypeBoolean:false, 
DTypeException:true, 
DTVpeSimpleId(*);false, 
DTypeUserDefined(*,*);false 

) . 

*/ 


DTypeSimpleld(il): 
with(n2) 

( DTVpeNameNull:false, 

DTypeInt eger:false, 

DTypeReal:false, 

DTypeBoolean:false, 

/* 

DTypeException;false, 

*/ 

DTypeSlmpleId(i2);(il == i2), 
DTypeUserDefined(*,*):false 

). 

DlVpeUserDefineddl, *) : 
with{n2) 

( DTypeNameNull:false, 
DTypelnteger:false, 

DTypeReal:false. 
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DiypeBoolean;false, 

/* 

DiypeException:false, 

*/ 

DiypeSimpleld{*);false, 

D'IVpeUserDGfined(i2, *) : (il == 12) 

) 

) 

} ; 

/*- 

^******* ********************-********«-«**★*************************** *«*«**«** 
**** This second set of functions were already existing and 
**** in for creating the interaction between the SYNOEN and the 
Graphic Editor and Graphic Viewer. 

**** Docunvented originally as filet ed.Ol.ssl 

****************************************************************************'*y 

/* - */ 

list IdSet; 

IdSet 

: exported IdSetNilO 
I exported IdSetPair(id IdSet) 


IdSet exported NullSetO { IdSetNil ) ; 

BOOL exported IsNull{IdSet s) { s == IdSetNil ); 

BOOL exported IsElement(id i, IdSet s) { 
with (s) 

( IdSetNil: false, 

IdSetPair(head, t) : { {i != head) 

? IsElement(i, t) 

: true) 

/* 

IdSetPair(head, t):((i < head) 

? IsElement(i, t) 

: ((i == head) 

? true 
: false) ) 

*/ 

} 

}; 

IdSet exported SingletonIdSet(id i) { 
with (i) 

( 

IdNull :IdSetNil, 

Id(*) :i :: IdSetNil 

) 

); 

IdSet exported IdSetUnion{IdSet si, IdSet s2) { 

with (si) 

( IdSetNil: s2, 

IdSetPair(il, tl) ; 

V7ith (s2) 

( IdSetNil: si, 

IdSetPair(i2, t2) 

: il < i2 ?il :: IdSetUnion(tl, s2) 

: il == i2 ?il :: IdSetUnion(t1, t2) 

: i2 :; IdSetUnion(sl, t2) 


Auxiliary Functions 

) 

) 

}; 

IdSet exported IdSetIntersect(IdSet sl, IdSet s2) ( 

with (sl) 

( IdSetNil: IdSetNil, 

IdSetPair(il, tl): 
with (s2) 

( IdSetNil: IdSetNil, 

IdSetPair(i2, t2) 

: il < i2 ?IdSGtIntersect(tl, s2) 

: il == i2 ?il IdSetIntersect(tl, t2) 

: IdSetIntersect(sl, t2) 

) 

) 


IdSet exported IdSetDifference(IdSet sl, IdSet s2) ( 
with (sl) 

( IdSetNil: sl, 

IdSetPair(il, tl) : 
with (s2) 

( IdSetNil: sl, 

IdSetPair(i2, t2) 

: il < i2 ?il :; IdSetDifference(t1, s2) 

: il == i2 ?IdSetDifeerence(tl, t2) 

: IdSetDifference(sl, t2) 

) 

) 


id exported FirstElement(IdSet s) { 
with (s) 

( IdSetNil: IdNull, 

IdSetPair(il, tl): il 

) 

); 

IdSet exported IdSetTail(IdSet s) { 
with (s) 

( IdSetNil: IdSetNil, 

IdSetPair(il, tl): tl 

) 

}; 

INT exported IdSetSize(IdSet s) { 
with (s) 

( IdSetNil: 0, 

IdSetPair(il, tl): 1 + IdSetSize{tl) 

) 

}; 

/* - 

list OpIdSet; 

OpIdSet 

; exported OpIdSetNilO 

I exported OpIdSetPair(operator_id OpIdSet) 


OpIdSet exported NullOpIdSet() { OpIdSetNil ); 

BOOL exported OpIdSetIsNull(OpIdSet s) { s == OpIdSetNil ); 
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BOOL exported OpIdlsInOpIdSet(operator_id i, OpIdSet s) ( 

: (EqualOpId(il, i2) 

? OpIdSetDifference(tl, t2) 

V7ith (s) 

! OpIdSetDifference(si, t2))) 

{ OpIdSetNil: false. 

) 

OpIdSetPair{oid, t):(LessThanOpId(i, oid} 

) 

? OpIdlsInOpIdSet(i, t) 

); 

: (EqualOpId(i, oid) 

? true 


: false)) 

operator_id exported OpIdSetFirstElement(OpIdSet s) ( 

) 

v;ith (s) 

); 

( OpIdSetNillOperatorldNull, 

OpIdSet exported SingletonOpIdSet(operator_id i) { 

OpIdSetPair(il, tl):il 

) 

with (i) 

); 

\ 

OperatorldNull rOpIdSetNil, 

OpIdSet exported OpIdSetTail(OpIdSet s) { 

Operatorld(*, *, *) ;i ;: OpIdSetNil 

with (s) 

) 

( OpIdSetNil: OpIdSetNil, 

}; 

OpIdSetPair(il, tl); tl 

OpIdSet exported OpIdSetUnion(OpIdSet si, OpIdSet s2) { 

} 

); 

with (si) 


( OpIdSetNil: s2. 

INT exported OpIdSetSize(OpIdSet s) { 

OpIdSetPair(il, tl): 

with (s) 

with(s2) 

( OpIdSetNil: 0, 

( OpIdSetNil:si. 

OpIdSetPair(il, tl); 1 + OpIdSetSize(tl) 

OpIdSetPair(i2, t2): 

) 

(LessThanOpId(il, i2) 

) ; 

? il;:OpIdSetUnion(tl, s2) 


: (EqualOpId(il, i2) 

BOOL exported EqualOpId(operator_id il, operator_id i2) 

? il::OpIdSetUnion(tl, t2) 

( v/ith (il) 

: i2::OpIdSetUnion{sl, t2))) 

( OperatorldNull: 

) 

with (12) 

) 

( OperatorldNull:true. 

}; 

Operatorld(*, *, *): false 

) . 

OpIdSet exported OpIdSetIntersect(OpIdSet si, OpIdSet s2) { 

Operatorld(tid_l, id_l, oip_l): 

with (si) 

with (12) 

( OpIdSetNil: OpIdSetNil, 

( OperatorldNull;false. 

OpIdSetPair(il, tl); 

Operatorld(tid_2, id_2, oip_2); 

with (s2) 

(EqualTypeId(tid_l, tid_2) && 

( OpIdSetNil; OpIdSetNil, 

(id„l == id_2) && 

OpIdSetPair(i2, t2) : 

EqualOperatorldPairs( 

(LessThanOpId(il, i2) 

oip_l, oip_2)) 

? OpIdSetIntersect(tl, s2) 

) 

; (EqualOpId(il, i2) 

) 

? il::OpIdSetIntersect(tl, t2) 

); 

; OpIdSetIntersect(si, t2))) 


) 

BOOL EqualTypeId(optional_type_id tid_l, optional_type_id tid_2) 

) 

{ v/ith (tid_l) 

}; 

( Opt ionalTi'peldNull; 

OpIdSet exported OpIdSetDifference(OpIdSet si, OpIdSet s2) { 

with (tid_2) 

( OptionalTVpeldNull:true. 

OptionaliypeldPrompt;true. 

with (si) 

Optionaliypeld(*):false 

{ OpIdSetNil;OpIdSetNil, 

) , 

OpIdSetPair(il, tl): 


with (s2) 

OptionalTypeldPrompt: 

( OpIdSetNil; si. 

with (tid_2) 

OpIdSetPair(i2, t2): 

( OptionaliypeldNull:true. 

(LessThanOpId(il, i2) 

OptionalTypeldPrompt;true. 

? il:;OpIdSetDifference(tl, s2) 

Optionaliypeld(*):false 
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). 

Optional'IVpeId(id_l) : 

with (tid_2) 

( OptionaITypeldNul1;true/ 

OptionalTypeldPrompt:true, 

0ptionalTypeId(id_2):id_l == id_2 

) 

) 

); 

BOOL EqualOperatorldPairs{operator„id_pairs oip_l, operator_id_pairs oip_2) 
{ with (oip_l) 

( OperatorldPairsNull: 

with (oip_2) 

( OperatorldPairsNull:true. 

OperatorIdPairsPrompt:true, 

OperatorldPairs(*,*):false 

). 

OperatorldPairsPrompt: 

with (oip_2} 

( OperatorldPairsNull:true, 

OperatorldPairsPrompt:true, 

OperatorldPairs(*,*}:false 

)/ 

OperatorldPairs(ail_ll, ail_12): 

with (oip„2) 

{ OperatorldPairsNull;false, 

OperatorldPairsPrompt:false, 

OperatorldPairs{ail_21, ail_22) : 

(EqualAIDLIST{ail_ll, ail_21} 

&& EqualAIDLIST{ail_12, ail_22)) 

) 


); 


BOOL EqualAIDLIST(alone_id_list ail_l, alone_id_list ail_2) 
{ with(ail_l) 

{ AldNil: 

with (ail_2} 

( AldNil: true, 

AIdPair{*,*):false 

}/ 


AIdPair(id_l, tail_l): 
with {ail_2} 

( AldNil: false, 

AldPair(id_2, tail_2): 

((id_l == id_2) && 
EqualAIDLIST(tail_l, tail_2)) 

) 

) 

); 


BOOL LessThanOpId(operator_id il, operator_id i2) 
{ with (il) 

( OperatorldNull: 
with {i2) 

( OperatorldNull;false, 

Operatorld(*, *, *): true 


) , 

Operatorld(tid_l, id_l, oip_l): 
with {i2) 

{ OperatorldNull:false, 

OpGratorId(tid_2, id_2, oip_2}: 
{LessThan'iypeId(tid_l, tid_2} )| 

(EqualTypeId{tid_l, tid_2) && 

((id_l < id_2) I 1 

((id_l == id_2) && 

LessThanOperatorldPairs(oip_l, oip_2) 



BOOL LessThanTypeId(optional_type_id tid_l, optional_type_id tid_2) 

{ with (tid_l) 

( OptionalTypeldNull: 

with (tid_2) 

( OptionalTypeldNull:false, 

OptionalTypeldPrompt;false, 

Optionaliypeld(*}:true 

) . 

OptionalTypeldPrompt: 

with {tid_2) 

{ OptionalTypeldNull:false, 

OptionalTypeldPrompt:false, 

OptionalTypeld(*):true 

), 

OptionalTypeId(id_l): 

with {tid_2) 

( OptionalTypeldNull:false, 

OptionalTypeldPrompt:false, 

OptionalTypeld(id_2):id_l < id_2 

) 

) 

); 

BOOL LessThanOperatorldPairs(operator_id_pairs oip_l, operator_id_pairs oip_2) 
{ with (oip_l) 

( OperatorldPairsNull: 

with (oip_2) 

( OperatorldPairsNull:false, 

OperatorldPairsPrompt;false, 

OperatorIdPairs(*,*):true 

) , 

OperatorldPairsPrompt: 

with {oip_2) 

( OperatorldPairsNull:false, 

OperatorldPairsPrompt:false, 

OperatorldPairs(*, *):true 

). 

OperatorldPairs{ail_ll, ail_12) : 

with {oip_2) 

( OperatorldPairsNull:false. 


128 





APPENDIX D 


OperatorldPairsPrompt;false, 

OperatorldPairs(ail_21, ail_22): 

(LGssThanAIDLIST{ail_ll, ail_21) II 
(EqualAIDLIST(ail_ll, ail_21) && 

LessThanAIDLIST(ail_12, ail_22) 

) 

) 

) 

) 

}; 

BOOL LessThanAIDLIST(alone_id_list ail_l, alone_id_list ail_2) 

{ with(ail„l) 

( AldNil: 

with (ail_2) 

( AldNils false, 

AldPair(*,*);true 

)/ 

AldPair{id_l, tail_l): 
with {ail_2) 

( AldNil: false, 

AldPair{id_2, tail_2): 

{(id_l < id_2) I I 

{(id_l == id_2} && 

LessThanAIDLIST{tail_l, tail_2) 

) 

) 

) 

) 

); 

/* - */ 

list statG_list; 
state_list 

; exported State_ListNil() 

I exported State_listPair(a_state_pair state_list) 


/* (id id) = (operator_id type_id) */ 
a_statG_pair 

: exported A_State_Pair{id id); 

list coor_list; 
coor_list 

: exported Coor_ListNil() 

j exported Coor_ListPair(a_coordinate coor_list) 


a_coordinate 

: exported XYValues{INT INT); 

/* - */ 

list id_t o_mGt_list; 
id_to_met_list 

: exported IdToMetListNil() 

I exported IdToMet List Pair (a_jpair id_to_met_list) ; 

a_pair 

: NumberNamePair(id INT); 

/* - */ 

list vtx_met_list; 
vtx„inet_list 

; VtxMetListNil 0 


Auxiliary Functions 

I VtxMetListPair{vtx_met_pair vtx_inet„list); 

vtx_met_pair 

: VtxMetPair(id INT); 

/* - 

INT exported IdIsNull(id i) 

{ 

with(i) (IdNull: 1, 

Id(*): 0) 

); 

/*- 

INT exported OperatorldlsNull{operator_id i) 

( 

with(i) (OperatorldNull: 1, 

Operatorld(*, *, *): 0) 

} ; 

/* - 

INT exported VtxListlsNil{vtx_mGt_list 1) 

{ 

with{l) (VtxMetListNil: 1, 

VtxMetListPair{*, *): 0) 

}; 

/* - 

INT exported AVertexIsNull(a_vertGx v) 

< 

with(v) (AVertexNull: 1, 

AVertexC*, *): 0) 

}; 

/*- 

STR exported Get_Op_Naine(component p) 

{ 

with(p) ( 

Op(i, *, *): GGt_Id{i), 

NoComponent: , 

Data(*, *, *): "" 

) 

}; 

/* - 

operator_spec exported Get_Operator_Spec{component p) 
( 

with(p) ( 

Op(*, os, *): os 

) 

); 

/* - 

operator_impl exported Get_Operator_Impl(component p) 
( 

with(p) { 

Op(*, *, oi): oi, 

NoComponent; OpImplNull, 

Data(*, *, *): OpImplNull 

) 

); 

/* - 

INT exported Get_Impl_Form{operator_impl oi) 

{ 

with{oi) 

(OpImplNull; 0, 

AdaOpImpl(*): 0, 

Operatorlmpl(g, *, *); 
with(g) 

(GraphNull; 1, 

Graph(*, *) : 2) 
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) 

); 

/*-- 

BOOL exported Op_Impl_Is_Null(operator_impl oi) 

{ 

with (oi) 

(OpImplNull; true, 

AdaOpImpl(*): false, 

Operatorlmpl(*, *, *): false 

) 

); 

/* - 

BOOL exported IsTypeDeclNil(type„dGclarations td) 

{ 

with (td) 

(TypeDecINi1: true, 

TypeDeclPair(*,*): false 

) 

}; 

/*- 

BOOL exported IsADeclNil(a_decl ad) 

{ 

with (ad) 

{ADeclNil: true, 

ADecl (*, * ) *. false 

) 

); 

/*- 

BOOL exported IsIdListNil{id_list idl) 

{ 

with (idl) 

(IdNil: true, 

IdPair(*,*): false 

) 

); 

/* - 

id exported Get_Id_Froin_Id_List (id_list idl) 

{ 

with (idl) 

(IdNil: IdNull, 

IdPair(id,*): id 

) 

); 


/*- 

constraints 

( 

with(oi) 


exported Get„Constraints_From_Op_Impl(operator_impl 


(OpImplNul1; Constraint sNul1, 

AdaOpImpl(*): ConstraintsNull, 

Operatorlmpl(*, *, c): 
with(c) 

(CcNull: ConstraintsNull, 
Cc(cts, *) : cts) 

) 


oi) 


*/ 


*/ 


*/ 


*/ 


/*- 

optional_streams exported Make_StreamsNull() 
{ 


/ 


Auxiliary Functions 


StreamsNull 

); 

/* - */ 

constraints exported Make_ConstraintsNull () 

{ 

ConstraintsNull 

) ; 

/* - */ 

/* the follov/ing routine is commented out because it is not longer being used 
a_constraint exported Ma)^e_AConstraint_From_Operator_Id(operator_id i) 

{ 

AConstraint{i, 

OptionalTriggerNull, 

OptPeriodNull, 

OptFinishWithinNull, 

OptMcpNull, 

OptMrtNull, 

Out pu tGua rdsNi1, 

ExceptionOpsNull, 

TimerOperationsNi1) 

}; 

*/ 

/* - */ 

a„constraint exported Make_AConstraintNull() 

{ 

AConstraintNull 

}; 

/* --- */ 

id exported Make_Id„From„SSLstring(STR x) 

{ 

Id(x) 

); 

/* - */ 

id exported Make_IdNull() 

( 

IdNull 

); 

/* - */ 

id_list exported Make_Id_List_Nil() 

{ 

IdNil 

); 

/* - */ 

id_list exported Make_Id_List(id i, id_list idl) 

{ 

IdPaird, idl) 

); 

/* - */ 

a_decl exported Make_A_Decl_Nil() 

( 

ADeclNil 

) ; 

/*-V 
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a_decl exported Make_A_Decl_From_Id(id i) 

{ 

ADecl(IdPair(i, IdNil), DTVpeNameNull) 

}; 

/* - . - 

a_decl exported Hake_A_Decl_Pair(id_list idl, decl_type_name dtn) 

{ 

ADecl(idl/ dtn) 

); . 

/* - 

type_declarations exported Get_Streams_Decl_From„Op_Impl (operator_impl oi) 
{ 

with(oi) 

(OpImplNull: TVpeDeclNil, 

AdaOpImpl(*): TypeDecINi1, 

Operatorlmpl{*, d, *): 
with(d) 

( /* DeclarationsNull: TypeDeclNil, */ 
Declarations(os, *) ; 

wit h(os) 

(StreamsNull: lypeDeclNil, 

StreamsPrompt; lypeDeclNil, 

Streams(td): td 

) 

} 

) 

}; 

/* - 

BOOL exported Op_Impl_Has_Non„Null_Streams(operator^impl oi) 

{ 

with(oi) 

(OpImplNull; false, 

AdaOpImpl{*); false, 

Operatorlmpl(*, d, *): 
with(d) 

( /* DeclarationsNull; false, */ 
Declarations(os, *) ; 

with(os) 

(StreamsNull; false, 

StreamsPrompt: false. 

Streams(*); true 

) 

) 

) 

); 


/* - 

BOOL exported Op_Impl_Has_Non_Null_Declarations(operator_impl 
{ 

with(oi) 

(OpImplNull; false, 

AdaOpImpl(*): false, 

Operatorlmpl{*, d, *); 
with(d) 

( /* DeclarationsNull; false. 
Declarations(*, *) ; true) 


) 


); 


oi) 


/ 


/ 


/ 


/ 
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) 


OpTimingInfoPrompt: TimeNull 
OpTimingInfo{t, *): t 


) 



time exported Extract_Met{operator_id i, psdl_components o) 


{ 

with(o) 

( PsdlNil:TimeNull, 

PsdlPair(c, tail):{(Operator_Id_Not_In_Vertex_List(i/ GetVertices(c)})) 

? Extract_Met{i, tail) 

: Get_Vertex_Time{Get_Vertex_VUth_Operator_Id(i, GetVertices(c))) 


}; 


/*-V 

BOOL exported Different_Time(time tl, time t2) 

{ 

(Convert_Time„To_Integer{tl) 1= Convert_Time_To_Integer(t2)) 

); 


/*-*/ 

a_vertex Get_Vertex_With_Operator_Id(operator_id i, vertex_list vl) 

{ 

with(vl) 

( VertexListNull; AVertexNull, 

VertexListPair(av, tail); 
with (av) 

( AVertexNull;Get_Vertex_With_Operator_Id(i, tail). 

Avertex(oi, *): 
with (oi) 

( OperatorldNull:Get_Vertex_With_Operator_Id{i, tail), 

Operatorld(*, *, *); 

(EqualOpIdd, oi) 

? av 

; Get_Vertex_With_Operator_Id(i, tail)) 

) 

) 

) 


); 

/*-*/ 

BOOL Operator_Id_Not_In_Vertex_List(operator_id i, vertex_list vl) 

(with (vl) 

( VertexListNull: true, 

VertexListPair(av, tail) : 
with (av) 

( AVertexNull: Operator_Id_Not_In_Vertex_List(i, tail), 

AVertex{oi, *): 
with (oi) 

( OperatorldNull: Operator_Id_Not_In_Vertex_List(i 


tail), 


Operatorld(*, *, *): 
(EqualOpId(i, oi) 

? false 

:Operator_Id_Not_In_Vertex_List(i, tail)) 


D - Auxiliary Functions 


BOOL Id_Not_In_'IVpeImpl_Vert ices (id i, type_impl ti) 
{ with (ti) 

( TypelmplNull:true, 

Adaiypelmpl(*);true, 

Typelmpl(*, oil):Id_Not_In_OpImplList(i, oil) 

) 


); 

/*- 

BOOL Id_Not_In_OpImplList(id i, operator_impl_list oil) 

{ with (oil) 

{ OpImplListNull:true, 

OpImplListPair(toi, tail): 
with(toi) 

( TOpIraplNull:true, 

T0plinpl(*, o_imp) : 

((Operator_Id_Not_In_Vertex_List{ 

Operatorld( 

OptionaITypeldNul1, 
i, 

OperatorldPairsNull), 

Get_Vertex_List(o_imp))) 

? Id_Not_In_OpImplList(i, tail) 

: false) 

) 

) 

}; 

/*- 

STR exported Get_Vertex_Type_Id_Name(a_vertex a) 

{ 

with(a) 

(AVertexNull: 

AVertex(oid, *): 
v;ith (old) 

(OperatorldNull: 

Operatorld(ti, *, *): 

with (ti) 

( OptionaITypeldNul1: 

OptionalTypeldPrompt: "", 

OptionalTypeld(i): Get_Id(i) 

) 

) 

) 

}; 

/*- 

STR exported Get_Vertex_Operator_Id_Name(a_vertex a) 

{ 

with(a) 

(AVertexNull: 

AVertex(oid, *): 
v;ith (oid) 

(OperatorldNull: “", 
Operatorld(*, i, *); Get_Id(i) 

) 

) 

} ; 

/* -- - 

operator_id_pairs exported Get_Vertex_OpIdPairs(a„vertex a) 

{ 


*/ 


*/ 


*/ 


v;ith (a) 


(AVertexNull: OperatorldPairsNull, 
AVertex(oid, *); 
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with (oid) 


{OperatorldNull: OperatorldPairsNull, 
OperatorId(*/ *, op); op 


STR exported Get_Operator„Id_Name(operator_id a) 


(OperatorldNull; 

Operatorld(*/ i, *): Get_Id{i) 


STR exported Get_Edge_From_Vertex_TVpe_Id_NamG(from_vertex_id a) 
{ 

with(a) 

(FVertexIdNull: "”, 

FVGrtGXId(t, *); 

with (t) 

( OptionalTypeldNull;"", 

OptionaliypeldPrompt:"", 

Optionaliypeld(i):Get_Id(i) 

) 

) 


STR exported GGt_Edge_From_Vertex_Operator_Id_Naine(from_vertex_id a) 


with{a) 


(FVertexIdNull; 

FVertexId(*, i, *); Get_Id(i) 


/* - */ 

opGrator_id_pairs exported GGt_Edge_From_VertGx_OpIdPairs(from_vertex_id a) 

( 

with(a) 

(FVertexIdNull; OperatorldPairsNull, 

FVertexId(*, *, oip); oip 

) 


STR exported Get_Edge_To_VGrtex_Type„Id_Name(to_vertex_id a) 
{ 

with(a) 

(TVertexIdNull; 

TVertexId(t, *, *): 

with (t) 

( OptionaliypeldNull;"", 

OptionalTypeldPrompt;, 

Optionaliypeldd) ;Get_Id(i) 

) 


STR exported Get_Edge_To_Vertex_Operator_Id_Name(to_vertex_id a) 
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{ 

with(a) 

(TVertexIdNull; 

TVertexId(*, i, *); Get_Id(i) 

) 

) ; 

/*- 

operator_id_pairs exported Get_Edge_To_Vertex_OpIdPairs (to_vertex_id a 
{ 

with(a) 

(TVertexIdNull: OperatorldPairsNull, 

TVGrtexId(*, *, oip); oip 

} 

); 

/*- 

STR exported Get_Edge_Name(an_edge a) 

{ 

with(a) 

(AnEdgeNull; 

AnEdge(i, *, *, *): Get_Id(i) 

) 

); 

/*- 

from_vertex_id exported Get_Edge_From_Vertex_Op_Id(an_edge a) 

{ 

with(a) 

(AnEdgeNull; FVertexIdNull, 

AnEdge(*, *, fid, *): fid 

) 

); 

/*- 

to_vertex_id exported Get_Edge_To_Vertex_Op_Id(an_edge a) 

{ 

with(a) 

(AnEdgeNull; TVertexIdNull, i 

AnEdge(*, *, *, tid): tid 

) 

) ; 

/*- 

time exported Get„Vertex_Time(a_VGrtGX v) 

{ 

with(V) 

(AVertexNull: TimeNull, 

AVertex(*, ot); Get_Time_From_Optional_TimG(ot) 

) 

}; 

/*- 

time exported Get_Time_From_Optional_Tirae(optional_timG ot) 

{ 

with (ot) 

{ 

OptionalTimeNull: TimeNull, 

OptionalTimePrompt; TimeNull, 

OptionalTime(t); t 

) 

); 

/*- 

time exported Get_Time_From__Latency(latency_time It) 

{ 

with (It) 

( 


*/ 


*/ 


*/ 


*/ 


*/ 
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LatencyTimeNull: TimeNull, 

LatencyTimePrompt: TimeNull, 

LatencyTime{t): t 

) 

>; 

/* - 

time exported Get_Edge_Time(an_edgG a) 

{ 

with(a> 

(AnEdgeNull: TimeNull, 

AnEdge{*, It, *, *); Get_Time_From_Latency(It) 

} 

}; 


/* - 

INT exported Get„TimG_Value(time t) 

{ 

with (t) 

(TimeNull: 0, 

Time(tv, *): 

with(tv) 

(IntegerNull : 0, 

IntegerVal(digits) : STRtoINT(digits) 

) 


/* - 

INT exported Convert_Time_To_IntGgGr(time t) 

{ 


with (t) 

(TimeNull: 0, 

Time(tv, tu): 


with(tv) 

( IntegerNull:0, 

IntegerVal(digits): 

with(tu) 


) 


(UnitNil:STRtoINT(digits), 

UnitMICROSECONDS: (STRtoINT(digits) / 100), 
UnitMS: STRtoINT(digits), 

UnitSEC: (STRtoINT(digits) * 1000), 

UnitMIN: (STRtoINT(digits) * 60000), 

UnitHOURS: (STRtoINT(digits) * 3600000) 


) 


); 


) 


/* - 

INT exported Get_Time_Unit(time t) 

{ 

with (t) 

( TimeNull: 0, 

Time(*, tu): 
with(tu) 

( UnitNil: 0, 

UnitMICROSECONDS: 1, 
UnitMS: 2, 

UnitSEC: 3, 

UnitMIN: 4, 

UnitHOURS: 5 

) 

) 


/* - */ 

vertex_list exported Get_Vertex_List_From_Operator_Impl_List(operator_impl_list oil) 

{ 

with (oil) 

( OpImplListNull: VertexListNul1, 

*/ OpImplListPair(toi, tail): 

with (toi) 

( TOpImplNull: 

Get_Vertex_List_From_Operator_Impl_List (tail), 

TOpImpl(*, oi) : Concat_Vertex_List ( 

Get_VGrtex_List(oi), 

Get_VGrtex_List_From_Operator_Impl_List (tail) ) 

*/ } 

) 

}; 


*/ 


*/ 


/* - 

vertex„list exported Get_Vertex_List(operator_impl p) 

{ 

with (p) 

( OpImplNull: VertexListNul1, 

AdaOpImpl(i): VertexListNull, 

OperatorImpl(g, *, *): 
with (g) 

( GraphNull: VertexListNull, 

Graph(vl, *): vl 

) 

) 

); 

/* - 

vertex_list exported RGst_Of_Vertex_List (vertex_list p) 

{ 

with (p) 

( VertexListNull: VertexListNull, 

VertexListPair{*, vl): vl 

) 

) ; 

/* - 

a_VGrtex exported Get^Vertex(VGrtex_list p) 

{ 

with (p) 

( VertexListNull: AVertexNull, 

VertexListPair(v, *): v 

) 

); 

/* - 

edge_list exported Get_Edge_List{operator_impl p) 

{ 

with (p) 

( OpImplNull: EdgeListNil, 

AdaOpImpl(i): EdgeListNil, 

Operatorlmpl(g, *, *): 
with (g) 

( GraphNull: EdgeListNil, 

Graph(*, el): el 

) 

) 

} ; 

/* - 

edge_list exported Rest_Of_Edge__List (edge_list p) 

{ 

v/ith (p) 


V 


*/ 


*/ 
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{ EdgeListNil: EdgeListNil, 
EdgeListPair{*, el): el 


an_edge exported Get_Edge(Gdge_list p) 

{ 

with {p) 

( EdgeListNil: AnEdgeNull, 

EdgeListPair(e, *): e 


o_inputs_list exported Get_Inputs_List(operator_spec p) 

( 

with (p) 

( 

OperatorSpec{*, oil, *, *, *, *, *, *, *): oil 


_outputs_list exported Get_Outputs_List(operator_spec p) 

with (p) 

( 

OperatorSpec{*, *, ool, *, *, *, *, *, *): ool 


o_statGs_list exported Get_State_List(operator_spec p) 

{ 

with (p) 

( 

OperatorSpec(*, *, *, osl, *, *, *, *, *}: osl 


o_states_list exported Rest_Of_State_List{o_states_list p) 

{ 

with (p) 

( StatesListNone: StatesListNone, 

StatesListPair{*, osl): osl 


o_states exported Get_State(o_states_list p) 

{ 

with (p) 

( StatesListNone: OpStatesNone, 
StatesListPair(os, *): os 


STR exported Get_State_Name(o_states s) 

( 

with (s) 

( OpStatesNone: “", 

OpStates{td, *, *) : 
with (td) 

{ Ti'^peDeclNil : 

TypeDeclPair(ad, *) : 
with (ad) 

{ ADeclNil: "", 


ADecl(il, *): 
with (il) 

( IdNil: 

IdPaird, *) : Get_Id(i) 

) 


STR exported GGt_Id(id i) 

{ 

with(i) 

(IdNull: 
Id(x): x) 

); 


STR exported Get_Decl_Type_Name(decl_type_name dtn) 

{ 

with (dtn) 

( DiypeNameNull: , 

DTVpelnteger: "Integer", 

DIVpeRea1: "Rea1", 

DTVpeBoolean: "Boolean", 


Diyp^E^ccept ion: "Exception", 

DIVP®SiinpleId(i) : Get_Id(i), 
DiypeUserDefined(i, *): Get_Id(i) 


graph exported Return_Graph(graph G) 

{ with (G) 

(GraphNu11: GraphNul1, 

Graph(VertexListNull, *}: GraphNull, 

Graph (* , *) ; G 

) 

); 

/* - 

graph exported Get_Graph_From_Op_Impl(operator_impl p) 
{ with (p) 

(OpImplNull: GraphNull, 

AdaOpImpl(*): GraphNu11, 

Operatorlinpl (g, *, *): g 


BOOL exported Empty_Graph(operator_impl p) 
{ with (p) 

(OpImplNull: true, 

AdaOpImpl(*): true, 

Operatorlmpl(g, *, *): 
with (g) 

(GraphNull:true. 

Graph(vl, *): 
with (vl) 

( VertexListNull:true. 

VertexLiStPair{*,*): false 
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type_declarations exported Get_Stream_decl_Fron\_Op_Impl(operator_impl p) 
{ with (p) 

(OpImplNu 11; 'lypeDeclNi 1 , 

AdaOpImpl{*): TypeDeclNi1^ 

OperatorImpl(*y d, *): 
with (d) 

( /* DeclarationsNull: lypeDeclNil, */ 

Declarations{os, *): 
with (os) 

{StreamsNull5 TypeDeclNil, 

StreamsPrompt: TypeDeclNil, 

Streams(td); td 

) 


/* the following routine is commented out because it is no longer being used 
operator_id exported Get_Operator_Id_From„AConstraint{a_constraint ac) 

{ with (ac) 

(AConstraintNull: IdNull, 

AConstraint(i, *, *, *, *, *, *, *, *}: i 


declarations exported Make_Null_Declarations() 
{ DeclarationsNull 
); 


BOOL exported PSDL_Decomposition(operator_impl p) 
{ with{p) 

(OpImplNull; false, 

AdaOpImpl(*): false, 

Operatorlmpl(*, *, *}: true 


BOOL exported Null_Graph(graph g) 

{ with(g) 

{GraphNul1: t rue, 

Graph(VertexListNull, *): true. 
Graph(*, *): false 


BOOL exported Null„Declaration(declarations d) 
( with(d) 

(DeclarationsNull: true. 

Declarations{*, *): false 


decl_type_name Find_Type_Name(id i, type_declarations t) 
{ with (t) 

(ly-peDeclNil: DTypeNameNull, 
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TypeDeclPair(ad, td): 
v;ith(ad) 

(ADeclNil; Find„Type_Name(i, td), 

ADecl{idl, dtn): Id_In„IdList(i, idl)?dtn;Find_Type_Name(i, td) 

) 

) 

); 

/* - 

BOOL Id_In_IdList(id i, id_list idl) 

{ with(idl) 

(IdNil: false, 

IdPair(idl_head, idl_tail): (i==idl_head)?true:Id_In_IdList(i, idl_tail) 

) 

) ; 

/* - 

component exported Dummy_Op() 

{ 

0p( 

Id( ’'new_op") , 

OperatorSpec{ 

GenericsListNone, 

InputsListNone, 

Out pu t s Li s t None, 

StatesListNone, 

ExcListNone, 

OpTimingInfoNone, 

KeyV/ordsNone, 

Inf ormalDescsNuH, 

FormaIDescsNone), 

OpImplNull) 

); 

/* - */ 

optional_streams exported Build^Streams(IdSet ids, type_declarations td) 

{ 

Streams(Build_Type_Decl(ids, td)) 

}; 

/* - */ 

type„declarat ions exported Build_'IVpe_DeGl {IdSet ids, type_declarations td) 

(with(ids) I 

( IdSetNil: TypeDeclNil, 

IdSetPair(i, tail): ADecl{IdPair(i, IdNil), Find_Type_Name(i, td)) 

:: Build_'IVpe_Decl (tail, td) 

) 

}; 


/* - */ 

constraints exported Build_Constraints(OpIdSet ids, constraints cs) 

(with(ids) 

( OpIdSetNil: ConstraintsNull, 

OpIdSet Pair (i, tail): Build^_Constraint (i, cs) 

:: Build_Constraints(tail, cs) 

) 

) ; 

/* - */ 


a_constraint Build_A_Constraint(operator_id i, constraints cs) 
(with(cs) 

(ConstraintsNull:AConstraint(i, 

OptionaITriggerNul1, 

OptPeriodNull, 

OptFinishV/ithinNull, 

OptMcpNull, 
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OptMrtNull, 

OutputGuardsNi1, 

ExceptionOpsNul1, 

TimerOperationsNil), 

ConstraintsPair(ac, tail); 
v/ith (ac) 

( AConstraintNull;Build_A_Constraint(i, tail), 

AConstraint(a_id, *, *, *, *, *, *, *, *): 

{EqualOpId(i, a_id) 

? ac 

: Build_A_Constraint(i, tail)) 

) 

) 

); 

/* - */ 

component exported Find_Component(id i, psdl_components pc) 

{with(pc) 

(PsdlNil:NoComponent, 

PsdlPair(c, tail); 
with{c) 

{ 

NoComponent:Find„Component(i, tail), 

Data(c_id, *, *): 


((c_id == i)?c;Find_Component(i, tail)), 

Op(o_id, *, *); 

((o_id == i)?c;Find_Component(i, tail)) 

) 

) 

); 

/* - */ 


t_op_impl exported Find_TOpImpl_in_operator_impl_list(id i, operator_impl_list ol) 
(with(ol) 

(OpImplListNull;TOpImplNull, 

OpImplListPair(t, tail): 
with{t) 

( 

TOpImplNull:Find_TOpImpl_in_operator_impl_list(i, tail), 

TOpImpl(t_id, *); 


((t_id == i)?t:Find_TOpImpl_in_operator_impl_list(i, tail)), 

) 

) 

}; 

/* - */ 


type_declarations exported Find_0_lnputs(id i, o_inputs_list il) 

{v/ith(il) 

{InputsListNone;TypeDeclNil, 

InputsListPair(os, tail); 
with(os) 

( OpInputsNone;Find_0_lnputs(i, tail), 

OpInputs(td, *); 

((IsiypeDeclNil(Find_Type_Decl(i, td))) 

? Find_0_lnputs(i, tail) 

: Find_Ti^pe_Decl (i, td)) 

) 

) 

}; 

/* - */ 

type_declarations exported Find„0„0utputs(id i, o_outputs_list ol) 

(v/ith (ol) 

(Output sListNone: lypeDeclNi1, 


OutputsListPair(os, tail); 
v;ith(os) 

{ OpOutputsNone;Find_0_0utputs(i, tail), 

OpOutputs(td, *): 

((IsTypeDeclNil(Find_TVpe_Decl(i, td))) 

? Find_0_Outputs(i, tail) 

: Find_TVpe_Decl(i, td)) 

) 

) 

}; 

/* - */ 

type_declarations exported Find_Type_Decl(id i, type_declarations td) 

(with(td) 

(TypeDeclNil:TypeDeclNil, 

TypeDeclPair(ad, tail): 
v;ith(ad) 

( ADeclNil ;Find_'IVpe_Decl (i, tail), 

ADecl(idl, *); 

{(Id_In_IdList(i, idl)) 

? td 

: Find_Type_Decl(i, tail)) 

) 

) 

}; 

/* - */ 

type_declarations exported Find_Stream_'IVpe_Decl (id i, optional_streams st) 

(with (st) 

(StreamsNull; TVpeDeclNil, 

StreamsPrompt;TypeDeclNil, 

Streams(td):Find_Type_Decl(i, td) 

) 

); 

/*-*/ 

a_constraint exported Find_A_Constraint(operator_id i, constraints ct) 

(v/ith (ct) 

(ConstraintsNull:AConstraintNull, 

ConstraintsPair(ac, tail) ; 
v/ith(ac) 

( AConstraintNull;Find_A_Constraint(i, tail), 

AConstraint(a_id, *,*,*,*,*,*,*,*) ; 

(EqualOpId(a_id, i) 

? ac 

:Find_A_Constraint(i, tail)) 

} 

) 

}; 

/* - */ 

o_inputs_list exported Malce_Inputs_List (type_declarations td) 

{with(td) 

(TypeDeclNil:InputsListNone, 

TypeDeclPair(*, *);InputsListPair( 

OpInputs(td, ReqmtsTraceNone), 

InputsListNone) 


/* the following code separates the id_iists into individual input_lists */ 
/* not use in current version of psdl_editor */ 

/* 

TypeDeclPair(ad, tail):InputsListPair( 

OpInputs{ 
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TVpGDeclPair( 

ad/ 

TVpeDeclNil) , 
ReqmtsTraceNone) , 
Make_Inputs_List(tail)) 


/* - */ 

o_outputs_list exported Make_Outputs_List{type_declarations td) 

{v;ith (td) 

(lypeDeclNil;OutputsListNone, 
lypeDeclPair(ad/ tail):OutputsListPair( 

OpOutputs(td, ReqmtsTraceNone)/ 

OutputsListNone) 

/* the following code separates the id_lists into individual output_lists */ 

/* not use in current version of psdl_editor */ 

/* 

'lypsDeclPair (ad/ tail) :OutputsListPair { 

OpOutputs{ 

lypeDeclPair ( 

ad/ 

TypeDeclNil), 

ReqmtsTraceNone), 

Make_Outputs_List(tail)) 

*/ 

) 

) ; 


/* - */ 

operator„spec exported Replace_Input_Output_Met(operator_spec oS/ 
o_inputs_list new_il/ 
o_outputs_list new_ol/ 
o_timing_info new_met) 

(with(os) 

(OperatorSpec(gl/ il, ol, si/ el, ti/ k, id, fd) : 

OperatorSpec(gl/ new_il, new_ol, si, el, new_met/ k, id, fd) 

) 

); 

/* - */ 

operator_impl exported Replace_Stream_Constraint_List(operator_impl oi, 
optional_streams new_stream_list, 
constraints new_constraint_list) 

{with(oi) 

(OperatorImpl(g, d, c): 

Operatorlmpl(g, Make_Declarations(d, new_stream_list), 

Make_Cc (c, new_constraint_list)) 

) 

} ; 

/* - */ 

type_declarations exported Concat_'IVpe_Decl_List (type_declarations tdl, 
type_declarations td2) 

(with(tdl) 

(TypeDeclNil; td2/ 

TypeDeclPair(ad, tail); ad;:Concat_Type_Decl_List(tail, td2) 

) 
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}; 

/* - */ 

component exported Make_Op(id i, operator_spGc os, operator„impl oi) 

{ 

Op{i, os, oi) 

}; 

/* - */ 

operator__impl exported MakG_OpImplNull {) 

{ 

OpImplNull 

); 

/* - */ 

t_op_impl exported Hake_TOpImpl(id i, operator_impl oi) 

{ 

T0plmpl(i, oi) 

); 

/* - */ 

t_op_impl exported Make_TOpImplNull() 

( 

TOpImplNull0 

}; 

/* - */ 

declarations exported Make_Empty_Declarations() 

{ 

Declarations(StreamsNull, TimersNull) 

); 

/* - */ 

/* 

declarations exported Make_DGclarationsNull() 

{ 

DeclarationsNull 

}; 

*/ 

/* -*/ 

cc exported Make„CcNull() 

( 

CcNull 

); 

/* - */ 

cc exported Make_Cc(cc old_cc, constraints new_cs) 

{with(old_cc) 

(CcNull: 

with{nGw_cs) 

( ConstraintsNull:CcNull/ 

ConstraintsPair(*,*):Cc(nGw_cS/ InformalDescsNull) 

). 

Cc(*/ des): 
with(new_cs) 

( ConstraintsNul1; 
with(des) 

( InformalDescsNullrCcNull/ 

InformalDescsPrompt:CcNull, 

InformalDescs(*);Cc(new_cS/ des) 

). 

ConstraintsPair(*/ *) ;Cc(nev/_cS/ des) 

) 

} 

); 

/* - */ 

declarations exported Make_Declarations(declarations old_d/ optional_streams new_s) 
{with(old_d) 

(/* 
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OpImplNul1) 

: : Make_New_Ops(tail) 


DeclarationsNull: 
with(new_s) 

( StreamsNull:DeclarationsNull, 

StreamsPrompt:DeclarationsNull, 

Streams{*):Declarations(new_s, TimersNull) 

). 

Declarations{*, ot): 
with(new_s) 

( StreamsNull: 
with{ot) 

( TimersNull:DeclarationsNull, 

TimersPrompt:DeclarationsNull, 

Timers(*):Declarations(new_s, ot) 

) . 

StreamsPrompt:Declarations(new_s, ot), 

Streams(*):Declarations(new_s, ot} 

) 

*/ 

Declarations(*, ot)sDeclarations(new„s, ot) 

) 

); 

/*-^-*/ 

o_timing_info exported Malce_New_0_Timing_Info(time new_time, o_timing_info old_info) 

{ 

with (new_time) 

(TimeNulltOpTimingInfoNone, 

Time(*,*): 
with(old_info) 

{ OpTimingInfoNone:OpTimingInfo(new_time, ReqmtsTraceNone), 

OpTimingInfoPrompt:OpTimingInfo(new_time, ReqmtsTraceNone), 

OpTimingInfo{*, req):OpTimingInfo(new_time, req) 

) 

) 

}; 

/* - */ 

psdl_components exported Concat_Psdl_Components{psdl_components ol, psdl_components o2) 

{ 

with(ol) 

(PsdlNil:o2, 

PsdlPair(c, tail):c::Concat_Psdl_Components(tail, o2) 

) 


/*-*/ 

psdl_components exported Malce_New_Ops(IdSet op_set) 

{ 

with (op_set) 

(IdSetNil:PsdlNil, 

IdSetPair(l, tail):Op(i, 

OperatorSpec( 

GenericsListNone, 

InputsListNone, 

Output sListNone, 

StatesListNone, 

ExcListNone, 

OpTimingIn foNone, 

KeyWordsNone, 

In forma1Desc sNul1, 

FormalDescsNone), 


) 

}; 

/*-*/ 

component exported Malce_New_Op_Component(id i, psdl_components o, type_declarations td) 
{ 

with (i) 

(IdNull:NoComponent, 

Id(*): 

Op(i, 

OperatorSpec( 

GenericsListNone, 

/* 

InputsListNone, 

OutputsListNone, 

*/ 

Build_InputsList{i, o, td), 

Build_OutputsList(i, o, td), 

StatesListNone, 

ExcListNone, 

/* 

OpTimingInfoNone, 

*/ 

Build_Met{ 

OperatorId( 

OptionaITypeldNul1, 
i, 

OperatorldPairsNull), 
o), 

KeyVtordsNone, 

Inf orma1DescsNu11, 

FormalDescsNone), 

OpImplNul1) 

) 

); 

/* - */ 

/* 

psdl_components exported Malce_Psdl_Pair_V?ith_Single_Component (component c) 

{ 

PsdlPair(c, PsdlNil) 

) ; 

*/ 

/* - */ 

/* 

psdl_components exported Make_Psdl_Nil() 

{ 

PsdlNil 

) ; 

*/ 

/* - 

operator_impl_list exported Make_Nev/_Op_Impl_List (IdSet op_set) 

{ 

v;ith (op_SGt) 

(IdSetNilrOpImplListNull, 

IdSetPaird, tail) :OplmplListPair( 
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TOpImpl(i, OpImplNul1) , 
Make„Nev7_Op_Impl_List (tail)) 


operator_impl_list exported Concat_Op_Impl_List{ 

operator„impl_list oil_l, operator_impl_list oil_2) 

{ 

with (oil_l) 

(OpImplListNull;oil_2, 

OpImplListPair(toi, tail):OpImplListPair{ 
toi, 

Concat_Op_Iinpl„List (tail/ oil_2)) 


/* - */ 

IdSet exported Extract_Input_Id_SGt (id i/ psdl_coinponents o) 

{with (o) 

( PsdlNilildSetNil/ 

PsdlPair(c, tail) : 
with (c) 

( NoComponent: Extract_Input_Id_Set(i, tail), 

Data(*, */ ti) : ({Id_Not_In„‘IVpeImpl„Vertices(i, ti)) 

? Extract_Input_Id_Set{i/ tail) 

: Extract_Input_Id_SGt_From_TypeImpl(i/ ti)). 


type_impl exported Make_'IVpeIi^Pl (operator__iinpl_list oil) 

{ 

Typelmpl{TypeNameNu11, oil) 

); 

/* - 


IdSet Extract_From_Edge_Ids(id i, edge_list el) 
(with (el) 

( EdgeListNil: 

EdgeListPair(ae, tail); 
with (ae) 

( AnEdgeNull: 

AnEdge(ei, It, tv, tv); 
with (fv) 

( FVertexIdNull: 

FVertexId(*, 


IdSetNil, 


Extract_Froin_Edge_Ids(i, tail), 


Extract_From_Edge_Ids(i, tail), 
id, *): 

{(i == f_id) 

? IdSetUnion( 

SingletonIdSet(ei), 
Extract_From_Edge_Ids{i, tail) 
: Extract_From_Edge_Ids(i, tail)) 


IdSet Extract_To_Edge_Ids(id i, edge_list el) 
{with {el) 

{ EdgeListNil: 

EdgeListPair{ae, tail): 
with (ae) 

( AnEdgeNull: 

AnEdge(ei, It, fv, tv) j 
with{tv) 

{ TVertexIdNull: 

TVertexId{*, t_ 


Extract_To_Edge_Ids(i, tail). 


Extract_To_Edge_Ids(i, tai1), 
id, *): 

{{i == t_id) 

? IdSetUnion( 

SingletonIdSet(ei), 
Extract_To_Edge_Ids{i, tail)) 
: Extract_To_Edge_Ids(i, tail)) 


Op{*, *, o_imp); ((Operator_Id_Not_In_Vertex_List{ 

Operatorld( 

OptionaITypeldNul1, 
i, 

OperatorldPairsNull), 

Get_VGrtGX_List(o_imp))) 

? Extract_Input_Id_Set(i, tail) 

: Ext ract_To_Edge_Ids(i, 


Get_Edge_List{o_imp))) 

) 


/* - */ 

IdSet exported Extract_Output_Id_Set(id i, psdl_components o) 

{with (o) 

( PsdlNil: IdSetNil, 

PsdlPair(c, tail): 
with (c) 

( NoComponent: Extract_Output_Id_Set(i, tail), 

Data{*, *, ti) : ((Id_Not_In_'iypeImpl_Vertices{i, ti)) 

? Extract_Output_Id_Set(i, tail) 

: Ext ract_Output_Id_Set_From_TypeImpl(i, ti)), 

Op(*, *, o_imp): ((Operator_Id_Not_In_Vertex_List( 

Operatorld( 

OptionallVpeldNull, 
i, 

OperatorldPairsNull) , 

Get„Vertex_List{o_imp))) 

? Extract_Output_Id_Set{i, tail) 

: Ext ract_From_Edge_Ids{i, 

Get_Edge_List {o_iinp) ) ) 

) 

) 

} ; 

/* - */ 

IdSet exported Extract_Input_Id_Set_Froin_TypeImpl{id i, type_impl ti) 

{ with (ti) 

( TypelmplNull:IdSetNil, 

Adaiypelmpl(*):IdSetNi1, 

Typelmpl(*, oil):Extract_Input_Id_Set_From_OpImplList(i, oil) 


/* - */ 

IdSet exported Extract_Input_Id_Set_FronL_OpImplList(id i, operator_impl_list oil) 
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{ with (oil) 

( OpImplListNullildSetNil, 

OpImplListPair(toi, tail); 
with(toi) 

( TOpImplNull:IdSetNil, 

TOpImpl(*, o_imp); 

((Operator_Id_Not_In_Vertex_List( 

Operatorld( 

OptionaliypeldNull, 

i, 

OperatorldPairsNull), 

Get„Vertex_List{o_imp))) 

? Extract_Input_Id_Set_From_OpImplList(i, tail) 
; Extract_To_Edge_Ids{i, Get_Edge_List(o_imp))) 


IdSet exported Extract_Output„Id_Set_From_iypeIn\pl(id type_impl ti) 
{ with (ti) 

( TypelmplNull;IdSetNil, 

AdaTypelmpl(*);IdSetNil, 

Typelmpl(*, oil):Extract_Output_Id_Set_From_OpImplList(i, oil) 


/* - */ 

IdSet exported Extract_Output_Id_Set_From_OpImplList(id i, operator_impl_list oil) 
{ with (oil) 

( OpImplListNullildSetNil, 

OplmplList Pair(toi, tail): 
with(toi) 

( TOpImplNull;IdSetNil, 

TOpImpl(*, o_,imp) : 

((Operator_Id_Not_In_Vertex_List{ 

Operatorld( 

OptionalTypeldNull, 
i, 

OperatorldPairsNull), 

Get_Vertex_List(o_imp))) 

? Extract_Output_Id_Set_From_OpImplList(i, tail) 

: Extract_From_Edge_Ids(i, GGt_Edge_List(o_imp))) 


o_inputs_list exported Make_InputsListPair_From_TypS—Decl(typG_declarations td) 


InputsListPair( 

OpInputs(td, ReqmtsTraceNone), 
InputsListNone) 


o_inputs_list exported Make_InputsListNone() 
{ 

InputsListNone 


/* - */ 

o_outputs_list exported Make_OutputsListPair_From_Type_Decl(type_declarations td) 


Auxiliary Functions 


{ 

OutputsListPair( 

OpOutputs(td, ReqmtsTraceNone), 
OutputsListNone) 

}; 


/* - */ 

o_outputs_list exported Make„OutputsListNone() 

{ 

OutputsListNone 

); 


/* - */ 

o_timing_info exported Make_OpTimingInfo_From_Met(time t) 

{ 

OpTimingInfo{t, ReqmtsTraceNone) 

); 


/* - */ 

o_timing_info exported Make_OpTimingInfoNone() 

{ 

OpTimingInfoNone 

); 

/* - */ 

component exported Make_Op_From_SSLstring(STR name) 

{ 

Op(Id(name), 

OperatorSpec( 

GenericsListNone, 

InputsListNone, 

OutputsListNone, 

StatesListNone, 

ExcListNone, 

OpTimingInfoNone, 

KeyWordsNone, 

InformalDescsNul1, 

FormalDescsNone) , 

OperatorImpl( 

GraphNull, 

/* 

DeclarationsNull, 

*/ 

Declarations(StreamsNull, TimersNull), 

CcNull) 

) 

); 

/* - */ 

/* the following routine is commented out because it is no longer being used 
BOOL exported Return_False{) 

{ 

false 

) ; 

*/ 

/* - */ 

psdl_components exported Merge_Psdl_Components(psdl_components pc_l, psdl_componGnts 
pc_2) 

{ 
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V7ith {pc_l) 

{ PsdlNil: pc_2, 

PsdlPair(h_l, t_l): 
with(h_l) 

( NoComponent :Merge_Psdl_Coinponents (t_l, pc_2) / 
Data(head_id_l, *); 
with (pc_2) 

{ PsdlNil: pc_l / 

PsdlPair(h_2, t_2) : 
with {h_2) 

( NoComponent:Merge_Psdl_Component s{pc_l, t_2), 

Data(head_id_2, *, *): 

((head_id_l <= head_id_2) 

? h_l::MGrge_Psdl_Components{t_l, pc_2) 

: h_2:;Merge_Psdl_Components{pc_l, t_2)), 
0p(*/ *, *) :h_l: :Merge_Psdl_CoinponGnts {t_l, pc_2 ) 

) 

), 

Op(head_id_l, *, *): 
with (pc_2) 

{ PsdlNil: pc„l, 

PsdlPair{h_2, t_2) : 
with (h_2) 

( NoComponent: Merge_Psdl„Component s (pc_l, t_2 }, 

Data(*/ *, *):h_2::MGrge_Psdl_Components(pc_l, t_2). 
Op(head_id_2, *): 

{(head_id_l <= hGad_id_2) 

? h_l::Merge_Psdl_Components(t_l, pc_2) 

; h_2::Merge_Psdl_Components(pc_l, t_2)) 

) 

) 

) 

) 

); 


/* - */ 

psdl_components exported Sort_Psdl„Components(psdl_components pc) 

{ 

with (pc) 

( PsdlNil:PsdlNil, 

PsdlPair(head, tail):Insert_Component( 
head, 

Sort_Psdl_Components(tail) 

) 

) 

}; 


/* - */ 

psdl_components exported Insert_ComponGnt(component h, psdl_components pc) 

( 

with (pc) 

( PsdlNil: PsdlPair(h, PsdlNil), 

PsdlPair(head, tail): 
with (head) 

( NoComponent;Insert_Component(h, tail), 

Data{head_id, *, *): 
with (h) 

( NoComponent:pc, 

Data(h_id, *, *):((h_id <= head_id) 

? h::pc 

: head::Insert_Component(h, tail)), 


Auxiliary Functions 

Op(*, *, *):head;:Insert_Component(h, tail) 

). 

Op(head_id, *, *): 
with(h) 

( NoComponent; pc, 

Data(h_id, *, *):h::pc, 

Op(h_id, *, *):((h_id <= head_id) 

? h:: pc 

: head::Insert_Component(h, tail)) 

) 

) 

) 

); 

/* - 

prototype exported Make_Proto(psdl_components pc) 

{ 

Prot(pc) 

) ; 

/*- 

operator„impl exported Make_Op_Impl(graph g, declarations d, cc c) 
{ 

Operatorlmpl(g, d, c) 

); 

/* - 

operator_impl exported Make_AdaOpImpl(id i) 

{ 

AdaOpImpl(i) 

); 

/* - 

type_impl exported Make_Ada1VpeIn\pl (id i) 

{ 

AdaTypelmpl(i) 

); 

/*- 

BOOL PSDLTVpelmpl(type_impl ti) 

{ 

with (ti) 

( 

TypelmplNull:false, 

AdaTypelmpl(*):false, 
lypelmpl(*, *):true 

) 

); 

/* - 

/* 

t_oper_spec Find_T_Op_Spec_in_Data(id i, component d) 

{ 

with (d) 

{ NoComponent:TOpSpecNi1, 

Data(i, ts, ti) ; 
with (ts) 

( TypeSpec(*,*,oo,*,*,*);Find_T_Op_Spec{i, oo) 

), 

0p(*, *, *):TOpSpecNi1 

) 

) ; 

*/ 

/*- 
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t_oper_spec exported Find„T_Op_Spec(id o_operators oo) 

{ 

with (oo) 

( OperatorNil;TOpSpecNil/ 

OperatorPair(tos, tail )j 
with (tos) 

{ TOpSpecNi1;Find_T_Op_Spec{i, tail), 

TOpSpec(t_id, os);(i == t_id) 

? tos 

; Find_T_Op_SpGC(i, tail) 

) 

) 

) ; 

/* - */ 

t_oper_spec exported Make__TOpSpecHil () 

{ 

TOpSpecNi1 

); 

/* - */ 

operator_impl Find„Operator_Impl(id i, opGrator_inipl_list oil) 

( 

with (oil) 

( OpImplListNullrOpImplNull, 

OpImplListPair(toi/ tail); 
with (toi) 

( TOpImplNull:Find_Operator_Impl(i, tail), 

TOpImpl(t_id, oi)!(i == t_id) 

? oi 

; Find_Operator_Impl(i, tail) 

) 

) 

}; 

/*_.-*/ 

IdSet Extract„Edge_Id_Set(operator_impl oi) 

{ 

with (oi) 

( OpImplNull:IdSetNil, 

AdaOpImpK*) : IdSet Nil, 

Operatorlmpl(g, *, *); 
with (g) 

( GraphNullildSetNil, 

Graph(*, el);Make_Edge_Id_Set(el) 

) 

) 

}; 


/*-V 

IdSet Make_Edge_Id_SGt(edge_list el) 

{ 

with (el) 

{ EdgeListNil;IdSGtNil, 

EdgeListPair(ae, tail): 
with (ae) 

( AnEdgeNull:Make_Edge_Id_Set(tail), 

AnEdge(e_i, *, *, *); 
with (e_i) 

( IdNu11; Make_EdgG_Id_Set(tail), 

Id(*); IdSGtUnion( 

SingletonIdSet(e_i), 

Make_Edge_Id_Set(tail)) 


) 

) 

) 

); 


^ ***************************************************************** *******«***i^ 

**** This third set of functions were already existing and 

**** for generating an operator head_nodo and its operator record. 

**** Documented originally as filet ed.2.ssl 

* iiit ItiHt* it* ** it'k ** it* ******** *1t **** It* ***** It ** ifkit* ******************** ****** ***1Ht* j 

OPNodePTR Make_Operator_Node( 

name, optional_type_name, oper_name, 
paramGter_list, id, met, X, Y, radius, color, 
name_font, name_x, namG_y, 
met_font, met_x, met_y, 
is_deleted, is_new, is_composite, 
is„terminator, is_modified) 

char 

*name, 

*optional_type_name, 

*oper_name, 

* pa r ame t er _1 i s t ,* 

OP_ID 

id; 

int 

met, 

X, 

Y, 

radius, 
color, 
name_font, 
name_x, 
name_y, 
mGt_font, 
niet_x, 
niet_y; 

BOOL 

is_delGtGd, 
is_new, 
is_composite, 
is_terminator, 
is_modified; 

{ 

OPNodePTR p; 

OPERATOR q; 

#ifdef GRAPHICS_DEBUG 
/* debugging */ 

print f("Entering MakG_Operator„NodG\n"); 

#endif 

#ifdef SDE_DEBUG_3 

printf{" Make_Operator_Node; name = %s\n'*, name) 

printf(" Make_Operator_Node: optional_type_name = %s\n", optional_type_name); 
printf(" Make_Operator_Node: oper_name = %s\n", oper_name); 
printf(‘* Make_Operator_Node: parameter_list = %s\n", parameter_list) ; 
ttendif 

p = (OPNodePTR)malloc(sizeof(OP_HEAD)); 
q = (OPERATOR)malloc(sizeof(OP_NODE)); 
p->op = q; 
p->next = NULL; 
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q->name = strdup(name); 

q->optional_type_name = strdup(optional_type_name) ; 

q->oper_name = strdup{oper_name); 

q->parameter_list = strdup(parameter_list}; 

q->name_font = name_font; 

q“>name_x = name_x, 

q->naine_y = name_y, 

q->id = id; 

q->inet = met; 

q->met„font = met_font; 

q->met_x = met_x; 

q->met_^ = met_y; 

q->x = X; 

q->y = Y; 

q“>radius = radius; 
q->color = color; 
q->is„deleted = is_deleted; 
q->is_new = is_new; 
q->is_composite = is_composite; 
q->is_tGrminator = is_terminator; 
q->is_moditied = is^modified; 


return (p); 

) 

/* - */ 

TYPE_LIST Make_Type_Node(name) 
char *name; 

{ 

TYPE_LIST 

h; 

PROD„INSTANCE 
NullSet(}; 

h = (TYPE_LIST)malloc(sizeof(TYPE_NODE}}; 
h“>type_name = strdup(name); 
h->undefined_op„impl = NullSet(); 
h->obsolete_op__impl = NullSet (); 
h->next = Global_Type_List; 

Global_Type_List = h; 
return(h); 

) 

- */ 

HeadPtr Make_Operator_Header(name, stream_list, operator_list, key, prod_no, del_flag) 
char 
*name; 

ST_PTR 
stream_list; 

OPNodePTR 
operator_list; 
int 
key, 

prod_no; 


{ 

extern int op_id„count; 

HeadPtr 

h; 

PROD_INSTANCE 


NullSet 0; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering Make_Operator_HeadGr\n"); 

/* 

print f("Make_Operator_Header: name = %s\n“, name); 

printf("Make_Operator_Header 2 key = %d\n", key); 

print f ("Make_Operator_Header 2 prod„no = %d\n'', prod_no) ; 

*/ 

ttendif 

h = (HeadPtr) maHoc (sizeof (HEADER_NODE) ) ; 
h->name = strdup(name); 
h->ada_op_name = strdup(name); 
h->global_id = strdup("0"); 
h->local_id = strdup("0"); 
h->type_id = strdup(""); 

#ifdef SDE_DEBUG_2 

printf("NAME INSERTED --> %s\n", name); 

#endif 

h->parent = strdup("“); 
h->parent_type_name = strdup(""); 

h->stream_list = stream_list; 
h->operator_list = operator_list; 
h->op_id_no = key; 
h->prod_no = prod_no; 
h->met = fake_met; 

h->is_composite = fake_is_compositG; 

h->marked_for_delete = del_flag; 
h->next = NULL; 
h->input_error = false; 
h->multi_op_error = false; 
h->output_error = false; 
h->met_error = false; 
h->stream_error = false; 
h“>constraint_error = false; 

h->name_font = fake_font; 
h->name_x = fake_X; 
h->name__y = fake_Y; 

h->inh_input_id_set = NullSet(); 
h->inh_output_id_set = NullSet(); 
h->inh_met = NULLVALUE; 
h“>state_id_set = NullSet(); 
h->vertex_id_set = NullSet(); 
h->edge_id_set = NullSet{); 

/* 

h->stream_id_set = NullSet(); 
h“>constraints_id_set = NullSet(); 


h->inh_input_decl = NULLVALUE; 
h->inh_output_decl = NULLVALUE; 

return(h) ; 

} 

/* - */ 

/* converts integer to STRO string structure */ 
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FOREIGN C_INT„to_STRO{I) 
int I; 

{ 

char buf[20]; 

sprintf(buf, "%d", I) ; 

return(Str(str_to_strO(buf))); 

) 

/*-*/ 

/* -, -*/ 

/* The following function uses “the_operator_list" and "the_stream_list" 
and builds the PSDL terms based on the “live" nodes. The follov/ing can 
be built from the c-data structures: 

- Operator Specification (in case an operator is new) 

- Graph 

- Data stream declarations 

Only those fields represented in the data structure are relevant to 
this construction. Optional phyla and fields whose values cannot be 
deduced from the data structures are represented by their NULL constructors. 

decls.h contains the necessary macros for building the terms. This file 
is generated by the SSL and erased after code generation. 

*/ 

/*-*/ 

/* 

This function creates a graph with the new data stored in the c-data 
data structure. 

*/ 

/*-*/ 

PROD_INSTANGE Make_Graph(o_list, s_list) 

OPNodePTR 
o_list; 

ST_PTR 
s_list; 

{ 

HeadPtr 

FindJeader_Node_f rom_Op_or_TOpImpl_or_TOpSpec (), 
h; 

PROD_INSTANGE 
Make_Vertex_List(), 

Make_Edge_List (), 
graph, 

vertex_list, 
edge_lis t; 
boolean 
t_bool; 

ftifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering Make_Graph\n'*) ; 

#endif 

/* Generate Vertex List */ 
vertex_list = Make_Vertex_List(o_list); 

/* Generate Edge List */ 
edgG_list = MakG_Edge_List(s_list); 

/* Generate the Graph */ 

graph = Return_Graph(Graph(vertex_list, edge_list)); 


/♦debugging*/ 

/* 

printf {"******* Make_Graph debugging **********\n") ,- 
printf("%s\n", current_graph->name); 

Print_OperatorS_Operators(current_graph->operator_list); 
Print_OperatorS_Streams(current_graph->stream_list); 

printf("-actual parameter-\n"); 

Print _OperatorS_Operators{o_list}; 
Print_OperatorS_Streams(s_list); 

*/ 


return(graph); 

} 

/* - */ 

OPNodePTR Sort_Operator_List(q) 

OPNodePTR q; 

{ 

OPNodePTR 
head, 
tail; 
boolean 
done ; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering Sort_Operator_List\n"); 
ttendif 

if (q == NULL) 

{ 

return(q); 

) 

else 

if (q->next == NULL) 

{ 

return(q); 

) 

else 

{ 

tail = Sort_Operator_List(q->next); 
if (strcmp(q->op->name, tail->op->name) <== 0) 

{ 

q->next = tail; 
return(q); 

} 

else 

{ 

head = tail; 
done = false; 

while (tail->next != NULL && !done) 

{ 

if (strcmp(q->op->name, tail->next->op->name) <= 0) 

{ 

done = true; 

) 

else 

( 

tail = tail->next; 
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} 

) 

q->next = tail“>next 7 
tail->next = q; 
return(head); 

) 

) 

) 


/* - */ 

ST_PTR Sort_Stream_List(p) 

ST_PTR p; 

{ 

ST_PTR 
head, 
tail; 
boolean 
done; 

#ifdef SDE_DEBUG„1 
/* debugging */ 

print£("Entering Sort_Stream_List\n"); 

#endif 

if (p == NULL) 

{ 

return(p); 

} 

else 

{ 

if (p->next == NULL) 

( 

return(p); 

) 

else 

{ 

tail = Sort_Stream_List{p“>next); 

if (strcmp(p->st->name, tail->st->name) <= 0) 

( 

p->next = tail; 
return(p); 

) 

else 

{ 

head = tail; 
done = false; 

while (tail->next != NULL && Idone) 

{ 

if (strcmp(p->st->name, tail->next'>st->name) <= 0) 

( 

done = true; 

> 

else 

{ 

tail = tail->next; 

} 

} 

P“>next = tail->next; 
tail->next = p; 
return(head); 


) 
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) 

) 


/*-*/ 

/* 

This function "sweeps" through the list of operators and builds a list 
of vertices of the PSDL graph. Only operators that are live are placed 
in the new PSDL vertex list. 

Note; The following code ASSUMES 

(1) AVertex(operator_id optional_time), Operatorld(id operator_id_pairs) 
where operator„id_pair alv;ays equal to OperatorldPairsNull() 

(2) time units are always in MS. 

*/ 

PROD_INSTANCE Mak;e_Vertex_List (p) 

OPNodePTR p; 

{ OPERATOR 

q? 

PROD„INSTANCE 

/* 

name, 

*/ 

front_part, 
middle_part, 
suffix_part, 

make_operator_id_pairs(), 
time, 
vertex; 

int 

Get_Unique_Id() ; 
char 

*get_vertex_type_name(), 

*get_vertex_oper_name(), 

*get_vertex_parameters(), 

*optional_type_name, 

*oper_name, 

* paramet er_lis t, 

*clean_name, 

*remove_blanks_from_string(), 
dummy_name [100] ,- 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering Make_Vertex_List\n"); 
ftendif 

if (p == NULL) 

{ 

return(VertexLiStNull); 

) 

else 

(q = p->op; /* q points to the operator's record */ 
if (strcmp(q->name, "") == 0) 
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{ /* need to create dummy name */ 

sprintf(dummy_name, "MONAME_%d", Get_Qnique_Id()); 
q->name = strdup(dummy_name); 

) 

else 

{ 

clean_name = remove_blanks_from_string(q->name}/ 
if (strcmp{clean„name, q“>name) != 0) 

{ 

free(q->name); 
q->name = clean_name; 

) 

else 

{ 

free(clean_name); 

) 

) 


if (q->is_deleted != TRUE) /* Make up the Vertex for this Operator */ 
{ 

if (q->is_new) 

q->id = Get_Unique_Id(); 
q->is_new = false; 

q->optional_type_name = get_vertex_type_name(q->name); 
q->oper_name = get_vertex_oper_name(q->name); 
q->parameter_list = get_vertex_parameters(q->name); 

if {strcmp{q->parameter_list, "") == 0) 

{ 

if (strcmp(q->optional_type_name, ■*") != 0) 

{ 

/* there is a syntax error in the parameter list */ 
free(q->optional_type_name); 
q“>opt ional„type_name = strdup () ; 
free(q->name); 

q->name = strdup{q->oper_name); 

) 


} 

else 

{ 

if (strcmp{q->optional_type_name, "") == 0) 

{ 

/* missing optional_type_name */ 
free{q->parameter_list); 
q->parameter_list = strdupC"'); 
freG{q->name); 

q->name = strdup(q->opGr„name); 

) 

) 

) 

else 

{ 

sprintf (dummy_name, “%s%s%s%s%s%s'', q->optional_type_name, 
".", q->oper_name, "(", q->parameter_list, “)"); 

if (strcmp(dummy_name, q“>name) != 0) 

{ 

/* vertex name differs from the original one */ 
q->optional_type_name = get_vertex_type_name(q->name); 
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q->oper_name = get_vertex_oper_name(q->name); 
q->parameter_list = get_vertex_paramGtGrs(q->name); 

) 

} 


/* create the necessary phylum for the operator */ 
if (strcmp(q->optional_type_name, “") != 0) 

front_part = OptionalTypeId(Id(SSLstring(q->optional_type_name))); 
else 

front_part = OptionalTypeldNull; 


if (strcmp(q->oper_name, "") != 0) 

middle_part = Id(SSLstring(q->oper_name)); 
else 

middle_part = IdNull; 

/* 

printf(”MakG_VGrtex_List: parameter_list = %s\n", parameter_list); 

*/ 

if (strcmp(q->parameter_list, “") != 0) 

suffix_part = make_operator_id_pairs(q->parameter_list); 
else 

suffix_part = OperatorldPairsNull; 

if (q->met == 0) 

time = OptionalTimeNull; 
else 

time = OptionalTime(Time(IntegerVal(C_INT_to_STR0(q->mGt)), 

UnitMS))/ 

vertex = AVertex(Operatorld(front_part, middle^part, suffix_part), 
time); 

#ifdef SDE_DEBUG_2 

printf ("Make_Vertex_List; operator = %s, id = %d\n'', q->name, 

(int)vertex); 
ttendif 

return(VertexListPair(vertex, Make_Vertex_List(p->next))); 

} 

else return( Make„Vertex_List(p->nGxt) ); 

) 

} 

/* - */ 

char *get_vertex_type_name(name) 
char *namG; 

{ 

char 

*1oca tion_of_dot, 
dummy[100]; 

sprintf(dummy, "%s", name); 
location_of_dot = strchr(dummy, '.'); 

if (location_of_dot != NULL) 

( 

(*location_of_dot) = '\0'; 
return(strdup(dummy)); 

) 

else 

( 
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return (strdup ('"•}) ; 

) 

) 

/* --- */ 

char *get_vertex_oper_name(name) 
char *name; 

{ 

char 

*location_of_dot/ 

*location„after_dot, 

*location_of_left_bracket, 
dummy[100]; 

sprint f (dummy, ''%s", name); 
location_of_dot = strchr(dummy, '.'); 
if (location_of_dot != NULL) 

{ 

location_after_dot = location_of_dot 4 1; 

) 

else 

{ 

location_after_dot = dummy; 

) 

ttifdef SDE_DEBUG_3 

printf (’'get_vertex_oper_namG : string after dot = %s\n", location_after_dot) ; 

#endif 

location_of_left_bracket = strchr(location_after_dot, '{'); 
if (location_of_left_bracket i- NULL) 

{ 

(*location_of_left„bracket) = '\0‘; 

) 

#ifdef SDE_DEBUG_3 

printf("get_vertex_oper_name : opGr_name length = %d\n", strlen(location_after_dot)); 
ttendif 

return(strdup(location_after_dot)); 

) 

/* - */ 

char *gGt_vertex_parameters(name) 
char *name; 

{ 

char 

*location_of_left_bracket, 

*location_of„right_bracket, 

*location_of_bar, 
dummy(100}; 

sprintf(dummy, "%s", name); 

location_of_left_bracket = strchr(dummy, '('); 
if (location_of_left_bracket == NULL) 

( 

return (strdup{"■*)); 

) 

else 

{ 

location_of_bar = strchr(location_of„left_bracket, *1'); 
if (location_of_bar == NULL) 

{ 

write_error_msg("missing 'I* in vertex name %s", name); 


return(st rdup(“")); 

} 

else 

{ 

location_of_right_bracket = strchr(location_of_bar, ')'); 
if {location_of_right„bracket == NULL) 

{ 

write_error_msg("missing ')' in vertex name %s", name); 
return(Strdup("")); 

) 

else 

{ 

(*location„of_right_bracket) = '\0'; 
return(strdup(location_of_left_bracket4l)); 

) 

) 

) 

} 


/* - */ 

char *remove_blanks_from_string (name) 
char *name; 

{ 

char 

clean^stringdOO], 
dummy[100}; 

inti, 

j; 

sprintf(dummy, "%s", name); 

/* remove all blank from the parameter list */ 

i = 0; 
j = 0; 

v/hile (dummy [i] ! = • \0 ') 

{ t 

if (dummy[i] != ' ') 

{ 

clGan_string(j] = dummy[i}; 
j + + ; 

) 

i44 ; 

) 

clean_string[j] = *\0'; 
return(strdup(clean_string)); 

) 

/* - */ 

PROD_INSTANCE make_operator„id_pairs(name) 

char *name; /* a non_empty_string containing a vertical bar and 2 id_lists */ 

{ 

char 

*location_of_bar, 
dummy(100}; 
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PROD_INSTANCE 

AIDLIST_1, 

AIDLIST_2, 

Extract_AloneIdList_From_String (); 

sprintf(dummy, "%s", name)? 
location_of„bar = strchr(dummy, ‘I’); 

(*location_of_bar) = '\0’; 

AIDLIST_1 = Extract_AloneIdList_From_String(dummy)? 

AIDLIST_2 = Extract_AloneIdList_From„String(location_of_bar + 1); 
return(OperatorIdPairs(AIDLIST_l, AIDLIST_2))? 

} 

/* - 

PROD_INSTANCE Extract_AloneIdList_From_String(name) 
char *name; 

( 

char 

*i/ 

*j. 

dummy[100]? 

PROD_INSTANCE 

AID, 

AIDLIST; 


sprint f(dummy, " % s", name); 

/* skip over the delimeters */ 
i = dummy; 

v;hile (!( { (*i) >= 48 && (*i) <= 57 ) /* a decimal digit */ 

I 1 ( (*i) >= 65 && (*i) <= 90 ) /* an upper case */ 

I 1( (*i) >= 97 && (*i) <= 122 ) /* a lower case */ 

I I ( (*i) == 95 ) /* a char */ 

II ( (*i) == '\0' ) /* a null char */ 

) ) 

( 

i + + ; 

) 

if ((*i) == -NO-) 
return(AldNi1); 
else 
{ 

/* search for end of token */ 
j = i; 

while( ( {*j) >= 48 && (*j) <= 57 ) /* a decimal digit */ 

I I ( (*j) >= 65 && (*j) <= 90 ) /* an upper case */ 

ll( (*j) >= 97 && (*j) <= 122 ) /* a lower case */ 

IK (*j) == 95 ) /* a char */ 

) 

{ 

j++; 

} 

if ((*j) == ‘\0-) 

.AIDLIST = AldNi1; 
else 

AIDLIST = Extract_AloneIdList_From_String(j+1); 

(*j) = 

AID = Id(SSLstring(i}); 
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return(AIdPair(AID, AIDLIST))/ 

) 

) 


/*-*/ 

/* This function "sv/eeps" through the STREAM list and genrates the PSDL graph's 
edge list. 

*/ 

/* - */ 


PROD_INSTANCE Make_Edge_List(p) 

ST_PTR p; 

{ 

PROD_INSTANCE 
Get_Operator_Id_NamG(), 
vl_id, 

vl_front_part, 
vl_middlG_part, 
vl„suffix_part, 
v2_id, 

v2_f ront_part, 
v2_middle_part, 
v2_suf fix_part, 

stream_name, 
stream_time; 

STREAM 

q; 

OPNodePTR 
rl ; 

OPERATOR 

si; 

char 

dummy_name[100], 

* dummy_name_pt r, 

*optional_type_name, 

*oper_name, 

*parameter_iist, 

*clean_name, 

*removG_blanks_f roiTL_string () , 

*get_vertex_type_name(), 

*get_vertex_oper_name(), 

*get_vertex„parameters(); 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering Make_Edge_List\n"); 

#endif 

if (p == NULL) 

return (EdgeListNil)? 

else 

{ 

q = p->st; /* q points to the stream record */ 

if (strcmp(q->name, "") == 0) 

{ /* need to create dummy name */ 

sprintf(dummy_name, "NONAME_%d", Get_Unique_Id())/ 

q->name = strdup(dummy_name); 

) 

else 

( 

clGan_name = remove_blanks_from_string(q->name)? 
if (strcmp(clean_name, q->name) != 0) 

( 
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free{q->name); 
q->name = clean_name; 

) 

else 

free(clean_name); 

} 

) 


if (q->is_deleted == FALSE) /* build an edge */ 
{ 

ttifdef SDE„DEBUG_3 

printf("Make_Edge_LiSt; edge_name = %s\n"/ q->name); 
ttendif 


/* update q's id if q is a new edge */ 
if (q->is_new) 

{ 

q->id = Get_Unique_Id(); 

q->is_new FALSE; 

) 

/* Get the first operator's name */ 

if {q->from != NULL) 

{ 

rl = q->from 7 /* rl points to the edge's first verex head node*/ 

si = rl->op; /* si points to the "from" vertex's actual record 


#ifdef SDE_DEBUG„3 

printf("Make_Edge_LiSt: from vertex name = %s\n"/ sl->name); 
#endif 


clean_name = remove_blanks_from_string(sl->name); 
optional_type_name = get_vertex_type_name(clean_name); 
if (strcmp(optional_type_name/ "") != 0) 

vl„front_part = OptionalTVpeld{Id(SSLstring( 
optional_type_name))); 

else 

vl_front_part = OptionaliypeldNull; 


oper_name = get_vertex_oper_name(clean_name); 
if (strcmp(oper_naine/ "") 1=0} 

vl jniddle_part = Id{SSLstring{oper_name)}; 
else 

vl_middle_part = IdNull; 

parameter_list = get_vertex_parameters(clean_narae); 
if {strcmp(paramGter_list, ""} != 0) 

vl_suffix_part = make_operator_id_pairs{parameter_list); 
else 

vl_suffix_part = OperatorldPairsNull; 

free{clean_name); 

) 

else 

{ 

vl_front_part = OptionalTypeldNull; 
vl_middle_part = Id{SSLstring("EXTERNAL")); 
vl_suffix_part = OperatorldPairsNull; 

) 


/* repeat the process for the second vertex */ 
if (q->to != NULL) 

{ 

rl = q->to; 
si = rl->op; 


ttifdef SDE_DEBUG_3 

printf("Make_Edge_List: to vertex name = %s\n", sl->name); 
#endif 


clean_name = remove_blanks_f rom_string(sl->name); 
optional_type_name = gGt_vertex_type_name{clean_name); 
if (Strcmp{optionsl_type_name, "") != 0) 

v2_front_part = OptionalTypeId(Id{SSLstring{ 

optional_type_namG))); 


else 


v2_front_part = OptionalTypeldNull; 


oper_name = get_vertex_oper_name{clean_name); 
if {strcmp(oper_name, "") != 0) 

v2_middle_part = Id(SSLstring(oper_name)); 

else 

v2_middle_part = IdNull; 

parameter_list = get_vertex_parameters(clean_name); 
if (strcmp(parameter_list, "") != 0) 

*/ v2_suffix_part = make_operator_id_pairs(parameter_list); 

else 

v2_suffix_part = OperatorldPairsNull; 

free(clean_name); 

) 

else 

( 

v2_front_part = OptionaliypeldNull; 
v2„middle_part = IdiSSEstringCEXTERNAL")); 
v2„suffix_part = OperatorldPairsNull; 

) 


vl_id = OperatorId(vl_front_part, vl_middle_part, vl_suffix_part); / 

* first vertex */ 

v2_id = Operatorld(v2_front_part, v2_middle_part, v2_suffix_part); / 

* second vertex */ 

stream_name = Id(SSLstring(q->name)); /* PSDL stream name */ 

/* PSDL stream latency time */ 
if (q->latency > 0) 

stream_tfijabencyTime(Time(IntegerVal(C_INT_to_STR0{q->latency)^nitMS)); 

else 

st ream_time = LatencyTimeNul1; 


} 


return (EdgeList Pair(AnEdge(stream_name, 

stream_time, 
vl_id, 
v2_id), 

Make_EdgG_List(p->nGXt))); 


} 

else return ( Make_Edge„List(p->next) ); 
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) 

extern boolean Global_Enforce_Consistency; 



/* C-FUNCTIONS */ 

extern PRODUCTION 

/*--*/ 

prod_prot, 

init_selection_action() 

prod_psdl_pair, 

{ 

prod_op, 

prod_data. 

ttifdef SDE_DEBUG_1 

prod_op_spec. 

/* debugging */ 

prod_op_impl. 

printf("Entering init„selection_action\n"); 

prod_t_op_impl, 

ttendif 

prod_input_list, 
prod_inputs, 

) 

prod_output_list, 
prod_outputs. 

/* 

prod_type_dec1, 

V^henever the user clicks on a region of the screen, this function is invoked. 

prod_graph, 

its primary objective is to determine where in the editing window has the 

prod_a_decl. 

user clicked and based upon that, make a decision as to whether or not the 

prod_decl, 

object clicked upon is displayable. If it is, v/e update the external data 

prod_stream. 

structure; otherwise, we do not do anything. 

prod_cc. 

*/ 

prod_cons t raint s, 

selection_action{new_selaction) 

prod_a_constraint; 

SELECTION new_selection; 


{ 

ATREE 

atree = bu_atree(br_buf(cur_browser)); 

extern VIEW_NO cur_view; 


PROD_INSTANCE 

PRODUCTION 

Change_viev7{) ; 

top_production, 
marker_production; 

void 


Refresh_Graph_yiewer(), 

PROD_INSTANCE 

House_Cleaning(); 

proto, 

D. 

ttifdef SDE_DEBUG_1 

hr / 

t emp_p, 

/* debugging */ 

top_p. 

printf{"Entering selection_action\n"); 

marker_id. 

ttendif 

component_id, 

op_id, 

t_op_impl_id. 

/* 

Make_IdNull0, 

if {Global_Set„SdeView == false) { 

IsiypeDeclNil(), 

Change_viev7{SSLstring("SDE_VIEl'/") , SSL_false) ; 

IsAConstraintNul1(), 

Global_Set„SdeView = true; 

Get_Id_From_Inputs_List{), 

printf("selection_action: Global_Set_SdeView = true"); 

Get_Id_From_Outputs_List(), 

) 

Get_Id_From_Stream(), 

*/ 

Get_Operator_Id_From_Constraints(), 

Get_Id_From_'IVpe_Decl (), 

House_Cleaning{new_selection); 

Find_0_lnput s (), 

Refresh_Graph_Viewer0; 

Find_p_Outputs{), 

Find_Stream„'IVpe_Decl (), 

Find_A_Constraint{), 

ttifdef SDE_DEBUG_1 

Find_TOpImpl_in_operator_impi_list{); 

printf{"Leaving selection_action\n"); 
ttendif 


) 

HeadPtr 

h, 

Find_Header_Node_f rom_Op_or_TOpImpl_or_TOpSpec () , 

/*-*/ 

Make_Operator_Header{); 

void House_Cleaning{new_selection) 


SELECTION new_selaction; 

LINKED_LIST 

{ 

temp_head, 

current_pos_trace = NULL; 
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void 

Enforce_Consistency{), 
Link_To_Structure(}, 
Free_Linked_List(); 


top^production = prod_op; 
component_id = id_f rom_Op(t op_p); 

if (IntValue{IdlsNull(component_id)) 

{ 


== 0 ) 


char 

*name; 


h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec (top_p} ; 
if (h == MULL) 

( 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering House_Cleaning\n")/ 
ttendif 

if {Global_Enforce_Consistency) 

( 

p = selection_apex(new_selection); 

/* remember the cursor position before fixing the a_tree */ 

/* the possible phylum checkpoints are: Prot, Op, Data, */ 

/* InputsListPair, OutputsListPair, Streams, ConstraintsPair */ 

temp_p = p; 

current_pos_trace = NULL; 

while {!at_top(temp_p) && (production(temp„p) != prod_op) 

&& (production{temp_p) != prod_data) 

&& (production(temp_p) != prod_t_op_impl)) 

{ 

ttifdef SDE„DEBUG_3 
/♦debugging*/ 

printf("House_Cleaning: son_number = %d\n", son_number(temp_p}); 
ttendif 


temp_head = (LINKED_LIST) malloc(sizeof(LINKED_LIST„NODE)); 
temp_head->item_number = son_number(temp_p); 
temp_head->next = current_pos_trace; 
current_pos_t race = temp_hGad; 

temp_p = father(tGmp„p); 

) 

top_p = temp_p; 

if (production(top„p) == prod_data) 

( 

ttifdef SDE_DEBUG_3 
/♦debugging*/ 

printf("House_Cleaning: production(top_p) == prod_data\n"); 
ttendif 

top„production = prod_data; 
marker_production = prod_data; 
component_id = id_from_Data(top_p}; 

} 

else if (production(top_p) == prod_op) 

{ 

ttifdef SDE_DEBUG_3 
/* debugging */ 

printf("House_Cleaning: production(top_p) == prod_op\n"); 
ttendif 


ttifdef SDE_DEBUG_3 

/♦debugging*/ 

printf("HousG_Cleaning: cannot find header_node\n"); 

ttendif 


/* need to make new header node */ 

h = Make_Operator_Header(strO_to_str_ro(StrValue(Get_Id(id_from_Op(top_p)))), 
NULL, NULL, Get_Unique_Id(), (int)top_p, FALSE); 
Link_To__Structure (h) ; 

) 


if (!(h->multi„op_error)) 
{ 


temp_p = p; 

while ((temp_p != top__p) 

&& (product ion(temp_p) 
&& (product ion(temp_p) 
&& (product ion(temp_p) 
&& (product ion(temp_p) 

{ 


prod_input_list) 
prod_output_list) 
prod„stream) 
prod_constraints)) 


} 


temp_p = father(tGmp_p); 


if ((production(temp_p) == prod_input_list) && h->input_error) 

{ 

ttifdef SDE_DEBUG_3 

/♦debugging*/ 

printf("House„Cleaning: product ion(temp_p) == prod_input_list\n"); 

ttendi f 


FrGe_Linked_List (current_pos_trace) ; 
marker_production = prod_input_list; 
marker_id = Get_Id_From_Inputs_List(p); 

) 

else if ((production(temp_p) == prod_output_list) && h->output_error) 

{ 

ttifdef SDE„DEBUG_3 

/♦debugging*/ 

print f ("House_Cleaning: product ion {temp_p) == prod_output_list\n'‘) ; 

ttendif 


Free_Linked_List(current_pos_tracG); 
marker_production - prod_output_list; 
marker_id = Get_Id_From_Outputs_List(p); 

} 

else if ((production(tGmp_p) == prod_stream) && h->stream_error) 

{ 

ttifdef SDE_DEBUG_3 

/♦debugging*/ 

printf("House_ClGaning: product ion(temp_p) == prod_strGam\n"); 

ttendi f 


Free_LinkGd_List(current_pos_trace); 
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#ifdef SDE_DEBUG_3 


printf("House_Cleaning: pass Free_Linked_List\n"); 

/* get coinponent id */ 

#endif 

temp_p = top_p; 

marker_preduction = prod_strGam; 

while (product ion (teinp_p) != prod_data) 

temp_p = p; 

i 

temp_p = father(temp_p); 

while (!at_top(temp_p) && (production!tenip_p) != prod_type_decl)} 

) 

{ 

component_id = id_from_Data(temp_p); 

temp_p = father(temp_p); 


} 

#ifdef SDE_DEBUG_3 

#ifdef SDE_DEBUG_3 

printf("House_Cleaning; coroponent_id = %s\n". 

print f {"House_Cleaning; pass v/hile loop\n"}; 

strO_.to_str_ro (StrValue (Get_Id (component_id) ) )) ; 

#endif 

#endif 

if (production{temp_p) == prod_type_decl) 


{ 

/* get header node */ 

marker_id = Get_Id_From_TVpe_Decl(temp_p); 

if (IntValue(IdlsNull(t_op_impl_id)) == 0) 

#ifdef SDE„DEBUG_3 

{ 

printf("House„Cleaning: marker_id = %s\n". 

h = Find_Header_Node_f rom_Op_or_TDpIinpl_or_TOpSpec(t op_p); 

strO_to„str„ro(StrValuG(Get_Id{marker_id}))); 

if (h == NULL) 

#endif 

) 

else 

{ 

#ifdef SDE_DEBUG„3 

{ 

/♦debugging*/ 

inarker_id = Make_IdNull (} ; 

printf("HousG_Cleaning; cannot find header_node\n"); 

#ifdef SDE_DEBUG_3 

#endif 

printf("House_Cleaning: marker_id = IdNull\n"); 


ttendif 

) 

#ifdef SDE_DEBUG_3 

/* need to make new header node */ 
h = 

Make_Operator_Header (strO„to„str_ro(StrValue(Get_Id{id_from_TOpImpl (top_p)) }) , 

print f ("House_Cleaning; pass Get_Id_From_'IVP®—Decl \n") ; 

NULL, NULL, Get_Unique_Id(), 

#endif 

(int}top_p, FALSE); 

} 

Link_To_Structure(h); 

else if ((production(temp_p) == prod_constraints) && h->constraint_error) 

{ 

ttifdef SDE_DEBUG_3 

) 


/♦debugging*/ 

/* see if cursor is positioned at streams or constraints */ 

printf("House_Cleaning: production(temp_p) == prod„constraints\n"); 

temp_p = p; 

#endif 

while ((temp_p != top_p) 

&& (production!terap_p) != prod_stream) 

Free_Linked_List(currGnt_pos_trace); 

&& (production!temp_p) != prod_constraints)) 

marker_production = prod_constraints; 

{ 

TnarkGr_id = Get_Operator_Id_From_Constraints(p); 

} 

else 

marker_production = top_preduction; 

tGmp_p = father(temp_p); 

\ 

/ 

\ 

if ((production(tGmp_p) == prod_strGam) && (h->stream_error)) 

/ 

/ 

) 

\ 

#ifdef SDE_DEBUG„3 

} 

/♦debugging*/ 

else if (production(top_p) == prod_t_op_impl) 

print f ("House_Cleaning; product ion (temp_p) == prod_stream\n'‘) ; 

{ 

ttendif 

ttifdef SDE_DEBUG_3 

Free_Linked_List(current_pos_trace); 

print f ("House_Cleaning; (product ion (top_p) == prod_t_op_impl) \n'') ; 


#endif 

#ifdef SDE_DEBUG_3 

print f (''House_Cleaning: pass Free_Linked_List \n'') ; 

top_production = prod_t_op_iinpl; 

#endi f 

marker_production = prod_stream; 

t_op_impl_id = id_from_TOpImpl(top_p); 



temp„p = p; 

tifdef SDE_DEBUG_3 

while ((temp_p i= top_p) && (production(temp_p) != 

printf("House_Cleaning: t_op_impl_id = %s\n". 

prod_type_decl)) 

strO_to_str_ro(StrValue(Get„Id(t_op_impl_id)))); 

( 

ttendif 

temp_p = father(temp_p); 
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#ifdef SDE_DEBUG_3 
#endif 


#ifdef SDE_DEBUG_3 


) 


{ 


printf("House_Cleaning: pass while loop\n"); 

if (production(temp_p) == prod„type_decl) 

{ 

ma rk er„i d = Get_I d_F rom_'IV pe_Dec 1 (t emp_p) ; 
printf (''House_Cleaning: marker_id = %s\n% 


top„p = Find_Component(component_id, psdl_components„from_Prot(Global_Proto)); 


#ifdef SDE_DEBUG_3 
/♦debugging*/ 

printf("House_Cleaning: componGnt„id = %s\n", 

strO_to_str_ro(Strvalue(Get_Id{component_id)))); 

#endif 


strO_to_str_ro(StrValue(GGt_Id(marker_id)))); 
#endif 


#ifdef SDE„DEBUG_3 

IdNullXn"); 

#endif 

#ifdef SDE„DEBUG_3 
Sendif 


} 

else 

{ 

marker_id = MakG_IdNull{}; 

printf("House_ClGaning: marker_id = 


} 

printf(“House_Cleaning; pass Get_Id_From_Type_Decl\n"); 


>constraint_error}) 


} 

else if ((production(temp_p) == prod_constraints) && (h- 


/*debugging*/ 

printf (''House_Cleaning; production (temp_p) == prod_constraints\n'') / 


if ((top_production == prod„data) II 

({top_production == prod_op) && !(h->multi_op_error)}) 

{ 

#ifdef SDE_DEBUG_3 

/*debugging*/ 

printf("House_Cleaning; top_p_id = %s\n", 

strO_to„str_ro(StrValue(Get_Id(id_fronL_Op_or_Data(top_p)))}}; 

/* 

St rO_to__str_ro( St rvalue (Get_Id( son (top_p, 1}) )) ) ; 

*/ 

#endi f 

temp_p = top__p; 

if (marker_production == top_production) 

{ 

itifdef SDE_DEBUG„3 

/♦debugging*/ 

printf(“House__Cleaning: marker_production == top_production\n"); 

tendif 


Free_Linked_List{current_pos_trace); 
marker_production = prod_constraints; 
markGr_id = Get_Operator_Id_From_Constraints(p); 

} 

else 

marker_production = top_production? 

} 

else 

{ 

marker^production = top_production; 

FrGe_Linked_List(current_pos_trace); 

} 

} 

else 

{ 

component_id = Make_IdNull(}; 

} 

Enforce_Consistency0; 
ftifdef SDE„DEBUG„3 

printf("House_Cleaning; After Enforce_Consistency/ coinponent_id = %s\n“, 
strO„to_str_ro(StrValue(Get_Id(component_id)})); 

#endif 

if (IntValue(IdlsNull(component_id)) == 0} 

{ 

/* reset curson position */ 

if ((top_production == prod_data) 

1 I (top_production == prod_op) 

1 I (top_production == prod_t_op_impl)) 


temp_head = currGnt_pos_trace; 

v/hile (tGmp_head != NULL) 

{ 

t emp_p = s on(t emp_p/ (t emp_head->it em_numbGr)); 

temp_head = temp_head->nGXt; 

) 

p = temp__p; 

Free_LinkGd_List (current_pos_trace) ; 

} 

else if (marker_production == prod_input_list) 

( 

#ifdef SDE„DEBUG_3 

/♦debugging*/ 

printf("House_Cleaning; marker_production == prod_input_list\n"); 

#endif 
/* 

t emp_p = son (son (tenip_p, 2} , 2) ; 

*/ 

tGmp_p = o_inputs_list_from_OperatorSpec( 
operator_spec_from„Op(temp_p)); 
if (IntValue(IdIsNull(marker_id)) == 0) 

{ 

#ifdef SDE_DEBUG_3 

/♦debugging*/ 

printf("House_Cleaning: markGr_id = %s\n“, 

strO_to_str_ro(Strvalue(Get_Id(marker_id}))); 

#endif 

p = Find_0_lnputs(marker_id, temp_p}; 
if (BoolValue(IsTypeDeclNil(p))) 
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{ 

p = temp_p; 

) 

} 

else 

( 

p = temp_p; 

) 

} 

else if (marker_production == prod_output_list) 

{ 

#ifdef SDE_DEBUG_3 

/*debugging*/ 

printf {“House_Cleaning: marker_preduction == prod_output_list\n''); 

#endif 

/* 

temp_p = son(son{temp_p, 2), 3); 

*/ 

teinp_p = o_outputs_list_from_OperatorSpec ( 
operator_spec_from_Op(temp_p)); 
if (IntValue(IdlsNull(marker_id)) == 0) 

{ 

ftifdef SDE_DEBUG_3 

/*debugging*/ 

print£(”House_Cleaning; marker_id = %s\n", 

strO_to_str„ro(Strvalue{Get_Id(marker_id}))); 

ttendif 

p = Find_0_0utputs (niarker_id, temp_p) ; 

#ifdef SDE_DEBUG_3 

/*debugging*/ 

printf{"House_Cleaning: returning from Find_0_0utputs\n“); 

ttendif 

if (BoolValue(IsiypeDeclNi1(p))) 

( 

p = temp_p; 

) 

> 

else 

( 

p = temp_p; 

) 

) 

else if (marker_production == prod_stream) 

{ 

#ifdef SDE_DEBUG_3 

/*debugging*/ 

print f ('‘House_Cleaning: marker_product ion == prod_stream\n"} ; 

ttendif 

/* 

temp_p = son(son(son(temp_p, 3), 2), 1};*/ 
temp_p = optional_streams_from_Declarations( 
declarations_from_0peratorlmpl( 
operator_impl_from_Op(temp_p))); 

if (IntValue(IdlsNull(marker_id)) == 0) 

{ 

#ifdef SDE_DEBUG„3 

/♦debugging*/ 


Auxiliary Functions 


print f (*'House_Cleaning: markGr_id = %s\n", 

strO_to_,str_ro(St rvalue (Get_Id(marker_id) ) ) ) ; 

p = Find_Stream_Type_Decl(marker_id, temp_p); 
if (BoolValue(IsTypeDeclNil(p))) 

{ 

p - temp_p; 

) 


else if (marker_production == prod_constraints) 

{ 

ilifdef SDE_DEBUG_3 

/♦debugging*/ 

printf("House_Cleaning: marker_production == prod_constraints\n“}; 

#endif 

temp_p = constraints_from_Cc{ 
cc_fromj0peratorlmpl( 

operator_impl_f rom_Op (temp__p) )) ; 
if {IntValue(OperatorIdlsNul1(marker_id)) == 0) 

{ 

ttifdef SDE_DEBUG_3 

/* debugging */ 

print f {*'House_Cleaning: marker_id = %s\n"/ 

strO_to_str_ro(StrValue (Get_Id(id_from_OperatorId(marker_id}) )) } 


p = Find_A_Constraint (inarker_id/ temp_p) ; 
if (BoolValue(IsAConstraintNull(p))) 

{ 

p = temp_p; 

) 


temp_p; 


else if (top_production == prod_t_op_impl) 

{ 

ttifdef SDE_DEBUG_3 

print f ("House_Cleaing: after Enforce_Consistency\n" im¬ 
print f ("House_Cleaning: top_^roduction == prod_t_op_impl\n"); 
printf("House_Cleaning; t_op_impl_id = %s\n", 

str0_to_st r„ro (StrValue(Get_Id (t_op_impl_id) )) ) ; 
ttendif 


if (IntValue(IdlsNull(t_op_impl_id))== 0) 

{ 

temp_p = Find_TOpImpl_in_operator_impl_list( 
t_op_impl_id, 

operator_impl_list_from_TypeImpl{ 
type_impl_from_Data(top_p}}); 

if (production(teinp_p) == prod_t_op_impl) 

{ 

ttifdef SDE_DEBUG_3 
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printf ("House_Cleaning: after Find_TOpIn\pl_in_operator_impl_list, t_op_iinpl_id = %s\n"/ 

printf("House_Cleaning: marker_id = %s\n“. 

StrO_to_str_ro(St rvalue (Get_Id(id_f rom_TOpImpl (temp_p)) )) ) ; 


#endif 

strO_to_str_ro(StrValue(Get_Id(id_from_OperatorId(marker_id)) )) ) ; 


ttendif 

if (marker_preduction == top_production) 


{ 

p = Find_A_Constraint(marker_id, temp_p); 

ttifdef SDE_DEBUG_3 

if (BoolValuedsAConstraintNull (p))) 

/*debugging*/ 

{ 

printf("House_Cleaning: marker_production == top_production\n"); 

p = temp_p; 

#endif 

} 

} 

else 

temp_hGad == current_pos_trace; 

while (temp_head != NULL) 

{ 

{ 

p = t emp_p; 

) 

} 

temp^n (temp„pOtenip_head->iteni_number) ) ; 

temp_head = temp_head->next; 

} 

} 

else 

p = t€mp_p; 

{ 

Free_LinkGd_List(current_pos_t race); 

p = type_impl_from_Data(top p); 

) 

} 

else if {niarker_production == prod_stream) 

{ 

else 

ttifdef SDE_DEBUG_3 

{ 

printf("House_Cleaning; marker_production == prod_stream\n"); 

p = type_impl_from_Data{top_p); 

ttendif 

> 

temp_p = optional_streams_from_Declarations( 

) 

declarations_from_OperatorImpl( 

else 

cperator^ipl-froiLTCpInpl (taip_p))); 

{ 

tifdef SDE_DEBUG_3 

if (IntValueddlsNull (marker_id) ) == 0) 

/♦debugging*/ 

{ 

print f {"House_Cleaning: multi-op-error in %s\n*'. 

/♦debugging*/ 

strO_to_str_ro(StrValue (Get_Id(id_from_Op (top_p))) ) ) ; 

#ifdef SDE_DEBUG_3 

#endif 

printf("House_Cleaning; marker_id = %s\n", 

temp_p = top_p; 
p = Global_Proto; 

strO_to_str_ro(StrValue(GGt_Id(marker_id)))) ; 

Free_Linked_List(current_pos_trace); 

ttendif 

) 

^ind_Stream_'IVpe_Decl (inarker_idtemp_p) ; 

} 

if (BoolValue{IsiypeDeclNi1(p))) 

/ 

else 

{ 

p = Global_Proto; 

\ 

p = temp_p; 

) 

\ 

Free_Linked_LiSt(current_pos_trace); 

} 

} 

) 

else 

i 

\ 

p = temp_p; 

} 

} 


/* update atree^ buffer and selection */ 

else if (marker_preduction == prod_constraints) 

temp_p = one_point_selection(p); 

{ 

niove_selection (atree, temp_p); 

/♦debugging*/ 

br_set_insert_pt„to_select ion (cur_browser) ; 

#ifdef SDE_DEBUG_3 

cmd_cond_;[nodi f ies (cur^browser, cur_buf f er) ; 

print f {*'Hous€_Cleaning: marker_production == prod_constraints\n") ; 


ttendif 

br_paint_all {) ; 

temp_p = constraints_from_Cc{ 

} 

cc_f rom__0peratorlmpl ( 

) 

cperator_Jnpl^fraTuTCpliTpl (tQip_p))); 


if (IntValueddlsNull (marker id)) == 0) 

/*-*/ 

{ 

void Refresh_Graph_Viewer() 

/♦debugging*/ 

{ 

ttifdef SDE_DEBUG_3 

HeadPtr 
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h, 

Find„Header_Node_f rom_Op_or_TOpImpl_or_TOpSpec () , 

Make_Operator_HGader()/ 

PROD_INSTANCE 
IsIdNull() , 

component_id, /* 

t _op_iinp 1 _i d / 

op_P/ */ 

t_op_impl„P/ 
t emp_p; 

void 

Update_Operator()/ 

Move_To_Structure_Front(); 

#ifdef SDE_DEBUG_1 

printf{"Entering Refresh_Graph_Viewer\n") ; 
ttendif 


{ 

free(Global_Current_Op_Name); 

) 

Global_Current_Op_Name = strdup(strO_to_str_ro( 

StrValue(Get_Id( 
id_from_Op(op_p))))); 

StrValue(Get„Id(son(op_p, 1))))); 

Global_Refresh_Graph_Viewer = true? 

) 

else 

{ 

temp_p = selection_apex(SE_selection(bu_atree(br_buf(cur_browser)))); 
v/hile (!at_top( teinp_p) && (production (temp„p) != prod_graph) 

&& (production{teinp_p) != prod_graph_nuli)} 

{ 

t emp_p = father(t emp_p)? 

} 


temp_p = selection_apex(SE_selection(bu_atree{br_buf(cur_browser)))); 
v/hile (!at_top(temp_p) && (production(t€mp_p} != prod_op) && (product!on(temp_p) != 
prod_t_op_impl) ) 

{ 

temp_p = father(temp_p); 

) 

if (!at„top(tGmp_p)) 

{ 

if (production(temp_p) == prod_op) 

{ 


op_p = temp_p? 

component_id = id_f roin_Op(op_p} ; 

if (IntValue(IdlsNull(component_id}) == 0} 

{ 

h = Find_Header„NodG_from_Op_or_TOpImpl_or_TOpSpec(op_p); 
if (h == NULL) 

{ 

#ifdef SDE_DEBUG_3 

/*debugging*/ 

print f (" Refresh_Graph_Viewer: cannot f indheader^nodeVn") ? 

#endif 


/* need to make new header node */ 

Make_Opegator_HehdGr(str0_to_str_ro(St rvalue(Get_Id(id_from_Op(op_p)))), 

NUMJDfet_Unique_Id((J.nt)opF^LSE) ; 

Link_To_Structure(h) ; 


) 


/* to order the header nodes so that most-recently-used-first */ 
Move_To_StructurG„Front(h)? 


/* see if need to refresh graph view */ 

if (strcmp(strO_to_str_ro(StrValue(Get„Id(component_id))), 
Global_Current_Op_Name) != 0} 

{ 

/* cursor is at a different operator */ 
if (Strcrop(Global_Current_Op_Name, "") != 0) 


if ((production(temp_p) == prod_graph) || 

(production(temp_p} == prod_graph_nul1)) 

{ 

/* cursor is at the same operator but graph is selected*/ 
Global_Refresh_Graph„Viewer = true; 

) 

) 

) 

} 

else 

{ 

op_p = temp_p; 
t_op_impl_p = temp_p? 

t_op_impl„id = id_from_TOpImpl (t_op_impl_p) ; 

if (IntValue(IdIsNull(t_op_impl_id)) == 0) 

{ 

h = Find„Header_Node_f rom_Op_or_TOpImpl_or_TOpSpec (t_op_impl_p) ? 
if (h == NULL) 

{ 

#ifdef SDE_DEBUG_3 

/*debugging*/ 

printf ("Refresh_Graph_Viewer: cannot findheader_node\n"); 

ttendif 


/* need to make new header node */ 
h = 


Make_Operator_HeadGr (strO_to_str_ro(StrValue(Get_Id(id_from_TOpImpl (t„op_impl_p)) ) ) ^ 

NUM;i5b);_Unique_Id(()Lnt) opIgiLSE) ? 

Link_To_Structure(h); 


} 


/* to order the header nodes so that most-recently-used-first */ 
MovG_To_Structure_Front(h); 


/* 

if 

{ 


see if need to refresh graph view */ 

(strcmp(strO_to_str_ro(StrValue(Get_Id(t_op_impl_id ))), 
Global_Current_Op_Name) != 0) 
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/* cursor is at a different operator */ 
if (Strcmp(Global_Current_Op_NamG, != 0) 

{ 

free{Global_Current_Op_Name); 

) 

Global_Current_Op_Name = strdup(strO_to„str_ro{ 

Strvalue(Get_Id( 
t_op_impl_id))}}; 

Global_Refresh_Graph_Viewer = true; 

} 

else 

{ 

teinp„p = selection_apex(SE_selection(bu_atree(br_buf(cur_browser)))); 
v/hile (! at_top(temp_p} && (production(temp„p) != prod_graph} 

&& (production(temp^p) != prod_graph_nul1}) 

{ 

temp_p = father(temp„p); 

} 

if ((production(temp_p) == prod_graph) M 

(production(temp_p) == prod_graph„null)) 

{ 

/* cursor is at the same operator but graph is selected*/ 
Global_Refresh_Graph_Viewer = true; 

) 

) 

} . 

) 


if (Global_Refresh_Graph_Viewer} 

{ 

Global_Refresh_Graph_Viewer = false; 

Update_Operator(op_p/ h); 
current_graph = h; 

the_operator_list = h->operator_list; 
the_stream_list = h->stream_list; 

ttifdef SDE_DEBUG„3 

printf("--OPERATOR FOUND IN THE LIST--\n"); 
printf (”%s\n'’y h->name) ; 

Print_OperatorS_Operators(h->operator_list); 
Print_OperatorS_Streams(h->stream_list); 

#endif 

refresh() ; 

) 

} 


#ifdef SDE_DEBUG_1 

printf("Leaving Refresh_Graph_Viewer\n"); 
ttendif 
) 

/* - */ 

void Update_Operator {p, q) 

PROD_INSTANCE 

p; 

HeadPt r 


Auxiliary Functions 

q; 

{ 

int 

Xy /* for the x coordinate of the new vertices when needed */ 
y; /* for the y coordinate of the new vertices when needed */ 

ftifdef SDE_DEBUG_1 

printf("Entering Update_Operator\n"}; 

#endif ; 


X = 80; 
y = 45; 

/* update operator list */ 
Update_Operator_List(py qy &Xy &y) ; 


#ifdef GRAPHICS_DEBUG 

printf("finishing Update_OpGrator_List\n"); 
Print_OperatorS_Operators (q->operator_list) ; 
Print_OperatorS_Streams (q~>stream__list) ; 
ttendif 

X = 35; 
y = 30; 

/* update stream list */ 

Update_Stream_List (py q, &Xy &y) ; 


#ifdef GRAPHICS_DEBUG 

print f ("finishing Update_Stream_List\n" ) ; 

Print_OpGratorS_Operators(q->operator_list) ; 
Print_OperatorS_Streams(q->stream_list} ; 

ttendi f 


/* - */ 

Update_Operator_List (p, qy x_ptry y_ptr) 

PROD_INSTANCE 

p; 

HeadPtr 

q; 

int 

*x_ptry /* for the x coordinate of the new vertices v;hen needed */ 

*y_ptr; /* for the y coordinate of the new vertices when needed */ 


PROD_INSTANCE 
vertex_list y 
verteXy 

Get_Operator_Impl{), 
Get_Vertex_List (), 
Get_VertGX()y 
Rest_Of_Vertex_List(); 

OPNodePTR 

V; 


#ifdef SDE_DEBUG_1 

print f("Entering Update_OpGrator„List\n"); 
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ttendif; 

/* initialize the “is_deleted" and "is„modified" fields in all operate’s 
in q->operator_list */ 

V = q->operator_list; 
while (v != NULL) 

{ 

v->op->is_deleted = TRUE; 
v->op->is_modified = FALSE; 

V = v->next; 

) 

if (production(p) == prod_op) 

vertex_list = Get_Vertex_List(operator_impl_from_Op{p)} ; 
else 

vertex_list = Get_Vertex_List {operator„impl_from_TOpImpl (p)) ; 


while (production(vertex_list} == prod_vertex„list_pair) 

{ 

vertex = Get_Vertex{vGrtex_list); 
vertex_list = Rest_Of_Vertex_List{vertex_list); 

Update_Vertex(vertex, q, x_ptr, y_ptr); 

) 

) 

/* - */ 

Update_Vertex(v, h, x_ptr, y_ptr) 

PROD_INSTANCE 

V; 

HeadPtr 

h; 

int 

*x_ptr, /* the X coordinate for the new operator if one is needed */ 

*y_ptr; /* the y coordinate for the new operator if one is needed */ 

{ 

OPNodePTR 

q/ 

Make_Operator_Node(), 

new_vertex, 

k, 

Vtx_Name_Is_In_List {) ; 

HeadPtr 

f, 

Hake_Operator_Header(), 

Op_Name_Is_In_List{); 

BOOL 

is_coinposite; 

char 

dummy[100], 

* vert ex_t ype_name, 

* vert ex_oper_name, 

*Get_Parameters_From_.Operator_Id_Pairs (} , 

*VGrtex_parameters; 

int 

Get_Met(), 
met; 

void 

Link_Operator() , 


Auxiliary Functions 


Link_To_Structure(); 

PROD_INSTANCE 
vertex_operator_id_pairs, 
Get_Vertex_Type_Id_Name(), 
Get_Vertex_Operator_Id_Name(), 
Get„Vertex_OpIdPairs(); 


#ifdef SDE_DEBUG_1 

printf("Entering Update_Vertex\n“); 
#endif; 


vertex_type_name = strO_to„str_ro(StrValue(Get_Vertex_Type_Id_Name(v))) ; 
vertex_oper_namG = strO_to_str_ro(StrValue(Get_Vertex_Operator_Id_Name(v) }) ; 
vertex_operator_id_pairs = Get_VGrtex_OpIdPairs (v) ; 
vertex„parameters = Get_Parameters_From_Operator_Id_Pairs( 
vertex_operator_id_pairs); 


if (strcmp(vertex_type_name, "") == 0) 
sprintf (dummy, ''%s‘', vertex_oper_name) ; 
else 
{ 

sprintf(dummy, "%s.%s(%s)", vertex_type_name, vertex_operename, 

vertex_parameters); 


} 


/* get "is_composite" value from the corresponding 
op_node if one exists. */ 
f = Op_Name_Is„In_List(vertex_opGr_name); 
if (f == NULL) 

{ 

/* need to create a new header for the vertex */ 
f = Make_Operator_Header(vertex_oper_name, NULL, NULL, Get_Unique_Id(), 
fake_prod_no, fake_is_deleted); 

if (strcmp(vertex_type_name, "") != 0) 

f->typG_id = Strdup(vertex_type_name); 

Link_To_structure(f); 

} 

if {strcmp(vertex_type_name, "'•) == 0) 

{ 

is_composite = f->is_composite; 

} 

else 

{/* an instance of a type-operator */ 
is_composite = false; 

} 

met = Get_Met(v); 

/* see if vertex is already in the operator_list */ 

k = Vtx_Name_Is_In_List(vertex_type„name, vertex_oper_name, vertGX_parameters, 
>operator_list); 

if (k != NULL) 

{ 

k->op->met = met; 

k->op->is_composite = is_composite; 
k->op->is_deleted = FALSE; 


h- 
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) 

else 

{ 

/* nev/ vertex to be inserted */ 

ttifdef GRAPHICS_DEBUG 
/* debugging */ 

printf(”Update_VGrtex: create new vertex (%s)\n", name); 

#endif 

new_vertex = Make_Operator_Node(dummy, 
ve rt ex_t ype_name, 
vGrtex_oper_name, 
vert ex_paramet ers ^ 

Get„UniquG_Id()/ 
met, 

*x_ptr, 

*y_ptr, 

fake_radius, 

fake_color, 

fake_font, /* name_font */ 

(*x_ptr + 10), /* namG_x */ 

(*y_ptr + 34), /* name_y */ 
fake_font, /* met_£ont */ 

*x_ptr, /* met_x */ 

*y_ptr/ /* met_y */ 
fake_is_deleted, 
fake„is_new, 
is_composite, 
fake_is_terminator, 
fake_is_modified); 

Link_Operator(new_vertex, h); 

if {*x_ptr < 600) 

( 

*x_ptr = *x_ptr + 80; 
if (((*x_ptr / 80) % 2) == 0) 

*y_ptr = *y_ptr + 50; 
else 

*y_ptr = *y_ptr - 40; 

) 

else 

{ 

*x_ptr = 80; 

*y_ptr = *y_ptr + 80; 

> 

} 

} 

/* - */ 

Update_Stream_List (p, q, x__ptr, y_ptr) 

PROD_INSTANCE 

P? 

HeadPtr 

q; 

int 

*x_ptr, /* the X coordinate for the new operator if one is needed */ 

*y_ptr; /* the y coordinate for the new operator if one is needed */ 

( 

PROD_INSTANCE 

temp_p, 

Get_Id(), 

FirstElement(), 

IdSetTail() , 
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edge_list, 
edge, 

Get_Operator_Spec(), 

Get_Operator_Impl(), 

Get_State_List(), 

Get_Edge_List{), 

Get.Edge(), 

Rest_Of_Edge_List(); 

PRODUCTION 
edge_list_ni1; 

ST_PTR 

V; 

/* initialize the "is_deleted" and "is_modified" fields of all edges in 
q->strGam_list */ 

V = q->stream_list; 
while (v != NULL) 

{ 

v->st->is_deleted = TRUE; 
v->st->is_modified = FALSE; 

V = v->next; 

} 


edge_list_nil = op_search("EdgeListNil"); 
if (production (p) == prod_op) 

edge_list = Get_Edge_List(operator„impl_from_Op(p)); 
else 

edge_list = Get_Edge_List (operator_impl_from_TOpImpl (p)) ; 

#ifdef SDE_DEBUG_3 

temp_p = q->state_id_set; 

while (!Boolvalue(IsNul1(temp_p))) 

( 

printf("Update_Edge_LiSt: state_id = %s\n", 

str0_to_str_ro(Strvalue (Get_Id(FirstElement (temp_p) )))) ; 
temp_p = IdSetTail(temp_p); 

} 

ttendif , 

while (production(edgG_list) != edge_list_nil) 

{ 

edge = Get_Edge(edge_list); 

edge_list = Rest_Of_Edge_List (edge_list) ; 

Update_Edge(edge, q, x_ptr, y_ptr); 

) 

) 

/* - */ 

Update_Edge(e, h, x_ptr, y_ptr) 

PROD_INSTANCE 

e; 

HeadPtr 

h; 

int 

*x_ptr, /* the X coordinate for external label if one is needed */ 

*y_ptr; /* the y coordinate for external label if one is needed */ 

{ 

int 

latency, 

Get_Latency(); 


1*^1. 
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char 

*GGt_Parameters_From_Operator_Id_Pairs {), 
* op t i on a 1 _t y p e_na me, 

*oper_name, 

*parameter_list/ 

*edge_namG; 

BOOL 

is„state; 

ST_PTR 

Make_StrGam_Node{), 

nGV/_edge; 

STREAM 

Edge_Name_Is_In_List (), 
k; 

SPLINE_PTR 

spl_ptr; 

OPNodePTR 

Vtx_Name„Is_In_List {), 

from/ 

tO/ 

op_list; 
void 

Link_Stream{) ; 


from_x, 
from_y, 
tO_X/ 
to_y; 

PROD_INSTANCE 

temp_p/ 

FirstElement()/ 

IdSetTail () , 

Get_Id(), 

Get_Edge_From_VertGx_'IVpe_Id_Name () , 
Get_Edge_From_Vertex_Operator_Id_Name () , 
Get_Edge_From_Vertex_OpIdPairs()/ 
Get_Edge_To_Vertex_1Vpe„Id__Name {) , 
Get_Edge_To_Vertex_Operator_Id_Name()/ 
Get_EdgG_To_Vertex_OpIdPairs()/ 
f rom_vert ex_id/ 
to_vertex_id, 

IsElement{); 

#ifdef SDE_DEBUG_1 

printf(“Entering Update_Edge\n"); 

#endif 

edge_name ^ strdup(strO_to_str_ro(StrValue(Get_Edge_Name(e)}))/ 
from_vertex_id = Get_Edge_From„Vertex_Op_Id(e); 
to_vertex_id = Get_Edge_To_Vertex_Op_Id{e); 

ttifdef SDE_DEBUG_3 

printf{"Update_Edgej edge name = %s\n", edge_name); 

#endif 


Auxiliary Functions 


optional_type_name = strO_to_str_ro(StrValue( 

Get_Edge_From_Vertex_IVpG_Id_Name (from_vertex_id) }) ; 

#ifdef SDE_DEBUG_3 

printf(“Update_Edge; from vertex optional_type__name = %s\n", optional_type_name); 
ttendif 

oper_name = strO_to_str_ro(StrValue{ 

Get_Edge_From„VGrtex_Operator_Id_Name ( from_VGrtGX_id) ) ) ; 

ttifdef SDE_DEBUG_3 

printf("Update_Edge; from vertex oper_name = %s\n"/ oper_name); 
ttendif 

parameter_list = Get_Parameters_From_Operator_Id_Pairs( 
Get_Edge_From_Vertex_OpIdPairs{from_vertex_id}); 

#ifdef SDE_DEBUG_3 

printf(“Update_Edge: from vertex parameter_list = %s\n“/ parameter_list); 

#endif 

if (strcmp(oper_name, "EXTERNAL") != 0) 

from = Vtx_Name_Is_In_List(optional_type_name, oper_name, 
parameter_list, h->operator_list); 

else 

from = NULL; 

if (from == NULL) 

{ 

/* from EXTERNAL */ 
from_x = *x_ptr; 
from_y = *y_ptr; 

*y_ptr = *y_ptr + 40; 

) 

else 

{ 

from_x = from->op->x; 
from_y = from->op->y; 

) 


optional_type_name = strO_to_str_ro(StrValue( 

Get_Edge_To_Vertex_'iype_Id_Name(to_vertGx„id))) ; 

#ifdef SDE_DEBUG_3 

printf("Update_EdgG: to vertex optional_type_name = %s\n“/ optional_type_name); 
frendif 

oper_name = strO_to_str_ro(StrValue( 

Get_Edge_To_Vertex_Operator_Id_Name (to_vertex_id) )) ; 

#ifdef SDE_DEBUG_3 

printf("Update_Edge: to vertex oper_name = %s\n"/ oper^name); 

#endif 

parameter_list = Get_Parameters_From_Operator_Id_Pairs( 
Get_Edge„To_Vertex_OpIdPairs(to_vertex_id)); 

#ifdef SDE_DEBUG„3 

printf("Update_Edge: to vertex parameter_list = %s\n"/ parameter_list); 

#endif 
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if (strcmp(oper_name, "EXTERNAL") != 0) 
to = Vtx_Name_Is_In_List(optional_type_naine, oper_name, 
parameter_list, h->operator_list); 

else 

to = NULL; 

if (to == NULL) 

{ 

/* to EXTERNAL */ 
to_x = *x_ptr; 
to_y = *y_ptr; 

*y_ptr = *y_ptr + 40; 

) 

else 

{ 

to_x = to->op->x; 
to_y = to->op->y; 

} 


latency = Get_Latency(e); 

#ifdef SDE_DEBUG_3 

temp_p = h->state_id_set; 

while {!BoolValue(IsNull(temp„p))) 

{ 

printf("Update_EdgG: state_id = %s\n“, 

str0_to_str_ro(StrValue{Get_Id(FirstElement{temp_p))))); 
temp_p = IdSetTail(temp_p); 

} 

#endif 

is_statG = BoolValue(IsElement(id_from_AnEdge(G), h“>state_id_set}); 
#ifdef SDE_DEBUG_3 

printf (''Update_Edge: %s is_state = %s\n'’, 

strO_to_str_ro(StrValue(Get__Id(id_from_AnEdge(G) )) ) , 

(is_state)?"TRUE":"FALSE"); 

temp_p = h->state_id_set; 

while (!BoolValue(IsNull(temp_p))) 

{ 

printf("Update_Edge; state_id = %s\n"/ 

strO_to_str„ro(StrValue(Get_Id(FirstElement(temp^p))))); 
temp_p = IdSetTail{temp_p); 

} 

ttendif 

k = Edge_Name_Is_In_List(edge_name/ from, to, h->stream_list}; 

if (k != NULL) 

{ 

k->latency = latency; 
k->is_statG_variable = is_state; 

/* 

k“>from = from; 
k“>to = to; 

*/ 

k->is_deleted = FALSE; 

} 


else 

( 

ttifdef GRAPHICS_DEBUG 
/* debugging */ 

printf("edge_name = %s\n", edge_name); 

printf("from_x = %d, to_x = %d\n", from_x, to_x); 

#endif 

if ((from == NULL) || (to == NULL)) 

{ 

/* External streams must have at least one control point */ 
spl„ptr = (SPLINE„PTR) malloc(sizeof(SPLINE^NODE)); 
spl_ptr->nGXt = NULL; 
if (from == NULL) 

{ 

spl_pt r->x = f rom_x; 
spl_ptr->y = from__y; 

) 

else 

{ 

spl_ptr->x = to_x; 
spl_ptr->y = to_y; 

} 

) 

else 

{ 

spl_ptr = NULL; 

) 

/* need to create new stream node */ 
new_edge = Make_Stream_Node(edge_name, 

Get_UniquG_Id(), 

from, 

to, 

fake_font, /* name_font */ 

((int)(from_x + to_x)/2), /* name_x */ 

((int)(from_y + to_y)/2 + 30), /* namely */ 

fake_font, /* latency^font */ 
((int)(from_x + to_x)/2), /* latency_x */ 

((int)(from_y + to_y)/2 + 45), /* latency_y */ 

spl_ptr, 

latency, 

f ak e_is_delet ed, 
fake_is_nGV/, 
fake_is_modified, 
is_state); 

Link_Stream(new_edge, h); 

} 

) 

/* - 

void Add^Input_Output_StatG_Nodes (h) 

HeadPtr h; 

{ 

int 

input_count, 
output_count, 
state_count, 
first_x, 
node_x, 
edge_label_y, 
edge_x; 
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OPNodePTR 

fake_font, 
node X, 

Vtx_Name_Is_ln_List(), 

640, 

Make_Operator_Nocle() , 

fake font. 

new_vertex. 

node X/ 

k; 

640/ 

STREAM 

FALSE, 

FALSE, 

Edge_Name_Is_In_List (}/ 

FALSE, 

t; 

FALSE, 


FALSE); 

ST_PTR 


new__edge. 

Link_Operator(new_vertex, h); 

Make_Stream_Node(); 

k = new_vertex; 

} 

SPLINE_PTR 

spl_ptr; 

/* add the new edgess */ 

PROD_INSTANGE 

edge_x = first_x; 
edge^label^y = 555; 

t einp_p, 

temp_p = h->inh_input_id_set; 

Get_Id{) , 

while (!BoolValue(IsNull(temp p))) 

IsNull{), 

{ 

IdSetSizeO, 

edge_name = str0_to_str_ro{StrValue{Get_Id(FirstElement{temp_p)))); 

FirstElement(), 

teinp_p = IdSetTail (temp_p) ; 

IdSetTail(); 

char 

t =r Edge_Name_Is_In_List (edgG_name, NULL, k, h->stream_list) ; 
if (t 1= NULL) 

*edgG_name; 

{ 

first_x =0; 

t->is_dGleted = FALSE; 
t“>name_x = edge_x - 10; 

if (h != NULL) 

t->name_y = edge_label_y; 

{ 

t->arc->x = edge_x; 

input_count = IntValue(IdSetSize{h“>inh_input„id_set)); 

t->latGncy_x = edge_x - 10; 

output_count = IntValue{IdSetSize(h“>inh_output_id_set)); 

) 

state_count = IntValue(IdSetSize(h->state_id_set)); 

else 

{ 

spl_ptr = (SPLINE_PTR) malloc{sizeof(SPLINE_NODE)); 

if (input_count > 0) 

{ 

/* add the new vertex */ 

spl_ptr->next = NULL; 
spl_ptr->x = Gdge_x; 

first_x = 100; 

spl_ptr->y = 500; 

node_x = first_x + {80 * (input_count - 1) / 2); 


k = Vtx_Name_Is_In_List("", "INPUT"/ h->operator_list); 

new_edge = MakG_Stream_Node(edgG_name/ 

Get_Unique_Id(), 

if (k != NULL) 

( 

k->op->is_deleted = FALSE; 

NULL, 

fake_font, 

k->op->x = node_x; 

Gdge_x “ 10/ 

k->op->nanie_x = node_x; 

GdgG_label_y, 

k->op->met_x = node_x; 

fake_font, 

} 

edge_x - 10, 

else 

edge_label_y/ 

( 

spl_ptr/ 

new_vertex = Make_Operator_Node("INPUT"/ 

fake_latency. 

" '* / 

FALSE, 

"INPUT"/ 

FALSE, 

"" t 

FALSE, 

Get_Unique_Id() / 

FALSE); 

0/ 

Link_Stream (nev/_edgG, h) ; 

node_X/ 

} 

620, 


2, 

edge_x = Gdge„x + 80; 

fake_color/ 

edge_label_y = edge_label_y + 10; 
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} 

) 

else 

{ 

spl_ptr = (SPLINE_PTR) malloc(sizeof(SPLINE_NODE)); 

spl_ptr->next = NULL; 

if (output_count > 0) 

spl_ptr“>x = edge_x; 

{ 

spl_ptr->y = 500; 

first_x = first_x + 80 * input_count + 100; 


node„x = first_x + (80 * (output_count - 1} / 2); 

new_Gdge = Make_Stream_Node{edge_name, 

Get_Unique_Id(), 

k = Vtx_Naine_Is_In_List , "OUTPUT", ""/ h->operator„list); 

k. 

if (k != NULL) 

NULL, 

{ 

fake^font, 

k->op->is_deleted = FALSE; 

edge_x - 10, 

k->op->x = node„x; 

edge_labGl_y, 

k->op->name_x = node_x; 

fake_font, 

k->op->met_x = node_x; 

) 

edge_x - 10, 

edge_label_y. 

else 

spl_ptr. 

{ 

fake_latency, 

nev/_vertex = Make_Operator_Node {"OUTPUT", 

FALSE, 

"" / 

FALSE, 

“OUTPUT", 

FALSE, 

“ " / 

FALSE); 

Get_Unique_Id(), 

0/ 

node_X/ 

Link_Stream{new„edge, h); 

) 


620, 

edge_x = edge_x + 80; 

2, 

edge_label_y = edge_label_y + 10; 

fake_color. 

} 

fake_font, 


node„x. 

) 

640, 


fake_font. 

if (state_count > 0) 

node„x. 

{ 

640, 

first_x = first_x + 80 * output_count + 100; 

FALSE, 

node_x = first„x + (80 * {state_count - 1) / 2); 

FALSE, 


FALSE, 

k = Vtx_Name_Is_In_List("", "STATE", h->opGrator_list); 

FALSE, 

if (k != NULL) 

FALSE) ; 

{ 

k->op“>is„deleted = FALSE; 

Link_Operator(new_vertex, h); 

k->op->x = node_x; 

k = new^ertex; 

k->op->namG_x = node_x; 

) 

k->op->met_x = node_x; 

} 

else 

/* add the new edgess */ 

edge_x = first_x; 

{ 

edge_label_y = 555; 

new_vertex = Make_Operator_NodG("STATE", 

teinp_p = h->inh_output_id_sGt ; 


while (!BoolValue(IsNull{temp_p))) 

{ 

edge„name = strO_to_str_ro{StrValue{Get_Id(FirstElement{temp_p)))); 

"STATE", 

Get_Unique_Id{), 

temp_p = IdSetTail(temp_p); 

0, 

node_x. 

t = Edge_Name_Is_In_List{edge_name, k, NULL, h->stream_list); 

620, 

if (t != NULL) 

2, 

{ 

fake_color. 

t->is_deleted = FALSE; 

fake_font, 

t->namG_x = edge_x - 10; 

node_x. 

t->arc->x = edge_x; 

640, 

t->latency_x = edge_x - 10; 

fake_font, 

) 

node_x, 
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640, 

FALSE, 

FALSE, 

FALSE, 

FALSE, 

FALSE); 

Link_Operator{new_vertex, h); 
k = new„vertex; 


/* add the new edgess */ 

edge_x = first_x; 

edge_label_y = 555; 

temp_p = h->state_id_set; 

while {!BoolValue(IsNull(temp_p))) 

{ 

edge_name = strO_to_str_ro{StrValuG (Get_Id{FirstElement (teinp_p) ))) ; 
temp„p = IdSetTail(temp_p); 

t = Edge_.NamG„Is_In_List{GdgG_name, k, k, h->stream_list); 
if (t != NULL) 

{ 

t->is_deleted = FALSE; 
t->namG_x = edge_x - 10; 
t->arc->x = edge_x - 5; 
t->arc->next->x = edge_x + 5; 
t->latency_x = edge^x - 10; 

} 

else 

{ 

spl_ptr = (SPLINE_PTR) malloc{sizeof(SPLINE_NODE)); 
spl_ptr->next = (SPLINE_PTR} malloc(sizeof(SPLINE_NODE)) ; 

spl_ptr->x = edge„x - 5; 
spl„ptr->y = 550; 
spl_ptr->next->x = edge_x + 5; 
spl_ptr->next->y = 550; 
spl_ptr->next->next = NULL; 

nGW_edge = Make_Stream_Node{edge_name, 

Get_Unique_Id() , 

k, 

k, 

fake_font, 
edge_x - 10, 
edge_label_y, 
fake_font, 
edge_x - 10, 
edge_label_y, 
spl_ptr, 
fake_latency, 

FALSE, 

FALSE, 

FALSE, 

TRUE); 

Link_Stream(new_edge, h); 

} 

edge_x = Gdge„x + 80; 
edge_label_y = edge_label_y + 10; 

} 

) 


) 


/* - */ 

void Remove„Input_Output_State_Nodes(h) 

HeadPtr h; 

{ 

OPNodePTR 

Vtx_NamG_Is_In_List (), 
k; 

STREAM 

Edge_Name„Is„In_List () , 
t; 

PROD_IMSTANCE 

tGmp_p, 

Get_Id(), 

IsNull0, 

FirstElement{), 

IdSetTail{); 

char 

*edge_name; 

if (h != NULL) 

{ 

k = Vtx_Name_Is_In_List{"", "INPUT", h->opGrator_list); 

if (k != NULL) 

{ 

k->op->is_deleted = TRUE; 
temp_p = h->inh_input_id_set; 
while {!BoolValue(IsNull(temp_p))) 

{ 

edge_name = str0_to_str_ro(StrValue(Get_Id(FirstElement(temp_p)))); 
temp_p = IdSetTail(temp_p); 

t = Edge_Name_Is_In_List(edge_name, NULL, k, h->stream_list); 
if (t != NULL) 

{ 

t“>is_deleted = TRUE; 

) 

} 

) 

k = Vtx_Name_Is_In_List{"", “OUTPUT", h->operator_list); 

if (k != NULL) 

{ 

k->op~>is_deleted = TRUE; 
temp_p = h->inh_output_id_set; 
while ( 'BoolValue(IsNull (teinp_p)) ) 

{ 

edge_name = str0_to_str_ro (StrValue(Get_Id(FirstElement (temp_p)) )) ; 
temp_p = IdSetTail(temp_p); 

t = EdgG_Name_Is_In_List(edge_name, k, NULL, h->stream„list); 
if (t != NULL) 

{ 

t->is_deletGd = TRUE; 

} 

) 
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k = Vtx_Name„Is_ln_List("", "STATE", h->operator_list}; 

if {k !=: NULL) 

{ 

k->op->is_deleted = TRUE; 
temp_p = h“>state_id_set; 
while (IBoolValue(IsNull(tGmp_p))) 

{ 

e<2ge_name = strO_to_str_ro(StrValue(Get_Id{FirstElement(temp^p)))); ) 

tGmp_p = IdSetTail (tGinp_p) ; ) 


free(temp->op->parameter_l ist); 
free{tGmp->op); 
free(temp); 

} 

else 

{ 

k = k->next; 

} 


t = Edge_Name_Is_In_List(edge_namG, k, k, h->stream_list); 
if (t != NULL) 

( 

t->is_delGted = TRUE; 

) 

) 

} 

) 

} 

/* - */ 

void Remove_DeletGd_Operators(h) 

HeadPtr h; 

{ 

OPNodePTR 

temp, 

k; 


k = h->operator_list; 

V7hile (k != NULL) 

{ 

if (k->op->is_deleted) 

{ 

h->operator_list = k->next; 
free(k->op->name); 
free(k->op->optional_type_name); 
free(k->op~>oper_name); 
free(k->op->parameter_list); 
free(k->op); 
free(k); 

k = h->operator_list; 

) 

else 

{ 

k = NULL; 

} 

) 

if (h->operator_list != NULL) 

{ 

k = h->operator_list; 
while (k->next != NULL) 

{ 

if (k->next->op->is_deleted) 

{ 

temp = k->next; 

k->next = tGmp->next; 

free(temp->op->namG); 

free(temp->op->optional_type„name); 

free(temp->op->oper_name); 


} 

/* - 

void Remove_Deleted_Strearns(h) 
HeadPtr h; 

{ 

ST_PTR 

temp, 

t; 


int 

VJipeOutSpl ine () ; 

t = h->stream_list; 

while (t != NULL) 

{ 

if (t->st->is_deleted) 

{ 

h->stream_list = t->next; 
free(t~>st->name); 
V7ipeOutSpline(t->st->arc) ; 
free(t->st); 
freG(t); 

t = h->stream_list; 

) 

else 

{ 

t = NULL; 

) 

) 

if (h->strGam_list != NULL) 

{ 

t = h->stream_list; 
while (t->next != NULL) 

{ 

if (t->next->st->is_delGtGd) 

{ 

temp = t->next; 

t->next = temp->next; 

free(temp->st->name); 

WipeOutSpline(temp->st->arc); 

free(tGmp->st); 

free(temp); 

} 

else 

{ 

t = t->next; 

) 


/ 
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) 

} 


--- 

void Restore_Deleted_Operators(h) 

HeadPtr h; 

{ 

OPNodePTR 

k; 

k = h“>operator_list; 

while (k != NULL) 

{ 

k->op->is_deleted = false; 
k->op->is_modified = false; 
k->op->is„new = false; 
k = k->next; 

) 

} 

/*-* / 

void Restore_Deleted_Streams(h) 

HeadPtr h; 

{ 

ST_PTR 
t ; 

t = h->stream_list; 

while {t 1= NULL) 

{ 

t->st->is_deleted = false; 
t->st->is_modified = false; 
t->st->is_new = false; 
t = t->next; 

) 


/*-*/ 

int Get_Met(v) 

PROD_INSTANCE 

v; 

{ 

PROD_INSTANCE 

t/ 

Get_Vertex_Time(), 

Convert_Time_To_Integer(); 

t = Get_Vertex„Tir:\e(v) ; 

return(IntValue(Convert_Time_To„Integer(t))); 

) 

/* - * ^ 

int Get_Latency(e) 

PROD_INSTANCE 

e; 

{ 

PROD_INSTANCE 

t, 

Get_Edge_Time(), 

Convert_Tiine_To_Integer () ; 
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t = Get_Edge_Time(e); 

return{IntValue(Convert_Time_To_Integer(t))); 

) 

/* - 

TYPE_LIST Find_lVpe_Node_froin_Data (p) 

PROD_INSTANGE p; 

{ 

char*name; 

TYPE_LIST 
temp_list; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering Find_Type_Node_from_Data\n“); 

#endif 

name = strO„to_str_ro(StrValue(Get_Id(id_from_Data(p)))); 
terap_list = Global_'IVpe_List ; 
while {temp_list != NULL) 

{ 

if {strcmp(name, temp_list->type_name) == 0) 
return(temp_liSt); 
else 

temp_list = temp_list->next; 

) 

return(NULL); 

) 

/* - 

HeadPtr Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(p) 

PROD_INSTANCE p; 

{ 

int prod_no; 

HeadPtr 

h, 

Op_Number_Is_In_List(), 

Op_Name_Is_In_List(); 

char 

*name; 

PROD_INSTANCE 
Get_Op_Name(); 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering Find_Header_Node_f rom_Op_or_TOpImpl_or_TOpSpec\n*') ; 
#endif 

prod_no =(int)p; 

h = Op_Number_Is_In__List (prod_no) ; 

if (h == NULL) 

{ 

/* since op_id_no corresponding to the Op production 
instance may have changed since last update to the 
op_node, need to check one more time for op_node with 
matching name */ 
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ttifdef SDE_DEBUG_2 

/* debugging */ 

printf("Op_node id may have changed\n"); 

ttendif 

if (production{p) == prod„op} 

name = strO_to_str_ro{StrValue{Get_Id{id_from_Op(p)))); 
else if (production(p) == prod_t_op„impl) 

name = strO_to„str_ro(StrValue(Get_Id(id_from_TOpImpl(p)))); 

else 

name = strO_to_str_ro(StrValue(Get_Id(id_from_'rc»pSpec{p)))); 


if (name != NULL) 

h = Op_Name_Is„In_List(name); 

if (h != NULL) 

{ 

/* update id of op_node */ 
h->prod_no = prod_no; 

) 

) 


return(h); 

) 

/*-*/ 

void Move_To_Structure_Front(p) 

HeadPtr p; 

{ 

extern HeadPtr 

prototype; 

HeadPtr 

Curr, 

Prev; 

ttifdef GRAPHICS_DEBUG 
/* debugging */ 

printf("Entering Move_To_S t rue t u re_Front\n“) ; 

#endif 

Prev = NULL; 

Curr = prototype; 

/* search for p and remove it from the "prototype" list if found */ 
while (Curr != NULL) 

{ 

if (Curr == p) 

{ 

if (Prev == NULL) 

( 

prototype = Curr->next; 

} 

else 

( 

Prev->next = Curr“>next; 

) 

Curr = NULL; /* to get out of the while loop */ 

) 

else 

{ 


Prev = Curr; 

Curr = Curr->next; 

) 

) 

/* reinsert p to front of the "prototype" list */ 
p->next = prototype; 
prototype = p; 

) 

/*-V 

PROD_INSTANCE Get_Id_From_Inputs_List(p) 

PROD_INSTANCE p; 

{ 

PROD_INSTANCE 

temp_p, 

Get_Id_From_Type_Decl(); 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering Get_Id_From_Inputs_List\n“) ; 
l^endif 

temp_p = p; 

while ((production(temp_p) != procl_input_list) && 

(production(temp_p) != prod_inputs) && 

(product ion(temp_p) != prod_type_decl)) 

{ 

temp_p = father(temp_p); 

} 

if (production(temp_p) == prod_input_list) 

{ 

ttifdef SDE_DEBUG_2 
/*debugging*/ 

print f ("Get_Id_From_Inputs_List: product ion (temp_p) == prod_input_list\n*') ; 
ttendif 

/* 

temp_p = son(temp_p, 1); 

*/ 

temp_p = o_inputs„from_InputsListPair(temp_p); 

) 

if (production(temp_p) == prod_inputs) 

{ 

ttifdef SDE_DEBUG_2 
/*debugging*/ 

printf("Get_Id_From_Inputs_List; production(temp_p) == prod_inputs\n"); 
ttendif 

/* 

temp_p = son(temp_p, 1); 

*/ 

temp_p = type_declarations_from_0plnputs(temp_p); 

) 

if (production(temp_p) == prod_,type_decl) 

{ 

#ifdef SDE„DEBUG_2 
/*debugging*/ 
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print f {"Get_Ic3__From„Input s_List: production (temp_p} == prod_type_decl \n" ) ; 
#endif 

return (Get„Id„From_'IVpe_Decl {temp_p) ) ; 

} 

else 

{ 

/* production{temp_p) == OpInputsNone */ 
return{MakG_IdNull()); 

} 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Leaving GGt_Id_From_Inputs_List\n"); 
ttendif 
) 

/* -- */ 

PROD_INSTANCE Get_Id„From_Outputs„List(p) 

PROD_INSTANCE p; 

{ 

PROD_INSTANCE 

temp_p, 

GGt_Id_From_Type_Decl {) ; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

print f {"Entering GGt_Id_Froin_Outputs_List\n") ; 
ttendif 

temp_p = p; 

while ((production(temp_p) != prod_output_list) && 

(production(temp_p} != prod_outputs) && 

(production(temp_p) *= prod_type_decl)) 

{ 

tGmp_p = father(temp_p); 

) 

if (production(temp_p) == prod_output_list) 

/* 

temp_p = son(temp_p, 1); 

V 

temp_p = o_outputs_from_OutputsListPair(temp_p); 

if (production(temp_p) == prod_outputs) 

{ 

/* 

temp_p = son(temp_p, 1); 

*/ 

temp_p = typG_declarations_from_PpOutputs(temp_p); 

) 

if (production(temp_p) == prod_type_decl) 

{ 

return (Get_Id_From_'IVpe—Dec 1 (teHip_p)) ; 

) 

else 

{ 

/* production(temp_p} == OpOutputsNone */ 
return(Make_IdNu11()); 

} 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Leaving GGt_Id_From_Outputs_List\n“}; 
ttendif 
) 

/* - */ 

PROD_INSTANCE Get_Id_From_St ream(p) 

PROD_INSTANCE p; 


PROD_INSTANCE 

temp_p, 

Get_Id_From„Type_Decl () ; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering Get_Id_From_StrGam\n“); 
ttendif 

temp„p = p; 

while ((production(temp_p) != prod_stream) && 

(production(temp_p) != prod_type_decl)) 

{ 

temp_p = father(temp_p); 

} 

if (production(teinp_p} == prod_stream) 

/* 

temp_p = son(temp_p, 1); 

*/ 

temp_p = type_declarations_from_Streams(temp_p); 

return (Get_Id_From_'IVpe_Decl (temp_p)) ; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Leaving Get_Id_From_Stream\n") ; 
ttendif 
} 

/* - */ 

PROD_INSTANCE Get_OpGrator_Id_From_Constraint s (p) 

PROD_INSTANCE p; 

{ 

PROD_INSTANCE 

temp_p, 

Make_IdNull() ; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering Get_Operator_Id_From_Constraints\n"); 
ttendif 

temp__p = p? 

while ((production(teinp_p) >= prod_constraints) && 

(production(temp_p) != prod_a_constraint)) 

{ 

teinp_p = father (temp_p) ; 

) 

if (production(teinp_p) == prod_constraints} 
temp_p = a_constraint_from_ConstraintsPair (teinp_p) ; 
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if (production{temp_p) == prod_a_constraint) 

{ 

return(operator_id_from_AConstraint(temp_p)}; 

} 

else 

{ 

return(OperatorldNull); 

} 

ttifdef SDE„DEBUG_1 
/* debugging */ 

printf("Leaving Get_Operator_Id_From_Constraints\n") ; 
ttendif 
) 

/* - 

PROD_IN2TANCE Get_Id_From_'IVpe-Decl (p) 

PROD_INSTANCE p; 

{ 

PROD_INSTANCE 

temp_p/ 

Make_IdNull{) , 

IsTypeDeclNil() , 

IsADeclNilO , 

IsIdListNil0 ; 

tifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering Get_Id_From_Type_Decl\n"); 

#endif 

temp„p = p; 

if (BoolValue(Is'IVpeDeclNil (temp_p))} 

{ 

return(Make_IdNull()); 

} 

else 

{ 

/* 

temp_p = son(temp_p, 1); 

V 

teinp_p = a_decl_f rom_TypeDec 1 Pa i r (t emp_p) ; 

} 


if (BoolValue(XsADeclNil(temp_p))) 
{ 

return(Make_IdNull()); 

) 

else 

{ 

* 

teinp_p = son(temp_p, 1); 


teinp_p = id_list_fronuADec 1 {temp_p) ; 


if (BoolValue(IsIdListNil(temp_p))) 
{ 

return(Make_IdNul1{)); 

) 

else 


*/ 


Auxiliary Functions 

( 

/* 

return(son(temp_p, 1)); 

*/ 

return (id_from_IdPair (temp_p)) ; 
) 


#ifdef SDE_DEBUG„1 
/* debugging */ 

print f {"Leaving Get_Id_From_Type_Decl \n") ; 

#endif 

) 

/* - */ 

char *Get_Parameters_From_Operator_Id_Pairs (op_id_pairs) 

P ROD_INSTANCE op_id_pairs ? 

{ 

PROD„INSTANCE 
aid_list_l, 
aid_list_2; 

char 

*Get_Parameters_Fron\_Alone_Id_List () , 

*list_l, 

*list_2, 
dummy[1003; 

if (production(op_id_pairs} == prod_operator_id__pairs} 

{ 

aid_list_l = alone_id_list_l_from_OperatorIdPairs{op_id_pairs) ; 
aid_list_.2 = alone_id_list_2_from_OperatorIdPairs(op_id„pairs} ; 
list_l = Get_Parameters_From_Alone_Id_List (aid_list_l) ; 
list„2 = Get__Parameters_From_Alone_Id_List{aid_list_2); 
sprintf(dummy/ "%s%s%s", list_l, "I"/ list_2); 

/* 

printf{"Get_Parameters before free list: dummy = %s\n"/ dummy); 

*/ 

free{list_l); 
free{list_2); 

/* 

printf("Get^Parameters after free list: dummy = %s\n", dummy); 

*/ 

return(strdup{dummy)); 

} 

else 

{ 

return(strdup("")); 

) 


/* - */ 

char *Get_Parameters_From_Alone_Id_List (aidl) 

PROD_INSTANCE aidl; 

{ 

char 

* head_o f_st ring/ 
dummy(100 J; 

PROD_INSTANCE 

temp„p; 

temp_p = aidl; 
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if (product ion{temp_p) != prod_alone_id_pair) 

{ 

return(Strdup("")); 

) 

else 

{ 

sprintf(dummy, 
temp_p = aidl; 

while (production(temp_p) == prod_alone_id„pair) 

{ 

strcat(dummy, 

streat(dummy, strO_to_str_ro(StrValue(Get_Id( 
id_from_AIdPair(temp_p))))}; 
temp_p = alone_id_list„from_AIdPair(temp_p) ; 

) 

/* 

print f ("Get__Parameters_From_Alone_Id_List: id_list = %s\n‘', dummy); 

V 

/* skip the first comma */ 
head_of_string = dummy; 
while (*head_of_string != 

{ 

head_of_string ++; 

} 

return(strdup(head_of_string+l)); 

} 

} 

%] 

^********************«**«#*********#**********«**«*#***#««.**«*««^^^^^^^^^^^^^ 
**** This fourth set of functions were already existing and 
**** for use with the Graphic Editor. 

*★** Documented originally as filet ed.S.ssl 

****<*****************«★********* ****************#^****«4r *★•*«★★*«****** ★*★★*** f 

%[ 

OPNodePTR Vtx_Name_Is_In_List(optional_type_name, oper_name, parameter_list, p) 
OPNodePTR 
P? 
char 

*optional_type_name, 

*oper_name, 

*parameter_list; 

{ 

/* Compare "name" with the names stored in each of the operators in the 

list pointed to by "p". If name is found, return a pointer to that 
node, otherwise, return NULL. 

*/ 

OPERATOR 

q; 

PROD_INSTANCE 
EqualOpIdO ; 


#ifdef SDE_DEBUG_1 
/* debugging */ 
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printf("Entering Vtx_Name_Is_In_List\n"); 

#endif 

#ifdef SDE_DEBUG_3 

printf("Vtx_Name_Is_In_List: optional_type_name = %s\n", optional„type_name) 

printf("Vtx_Name_Is_In_LiSt: oper_name = %s\n", oper_name); 

print f (‘'Vtx_Name_Is_In_List: parameter_list = %s\n", parameter_list) ; 

#endif 

v;hile (p != NULL) 

{ 

q = p->op/ 
ttifdef SDE_DEBUG_3 

printf("Vtx_Name_Is_In_List; oper_name = %s\n", q->oper_name); 

#endif 

if (strcmp(q->name, "") 0) 

{ 

if (strcmp(oper_name, q->oper_name) == 0) 

{ 

if (strcmp(optional_type_name, "") == 0) 

{ 

ttifdef SDE_DEBUG_3 

printf{"Vtx_Name_ls_In_List: found vertexNn"); 

#endif 

return(p); 

) 

else 

{ 

#ifdef SDE_DEBUG_3 

print f ("Vtx_Name_Is_In_List; optional_type_name = %s\n", q->opt ional_type_name) 
print f ( "Vtx_Name_Is_In_List: parameter_list = %s\n", q->parameter_list) ; 
ttendif 

if { 

{strcmp(optional_type_name, q->optional_type_name) =:= 0) 

&& (strcmp(parameter_list, q->parameter_list) == 0)) 

I 

{ 

#ifdef SDE_DEBUG_3 

print f("Vtx_Name_Is_In_List: found vertex\n"); 

#endif 

return(p); 

) 

else 

p = p->next; 

) 

) 

else 

{ 

p = p“>next; 

) 

) 

else 

{ 

p = p->next; 

) 

> 

#ifdef SDE_DEBUG_3 

printf("Vtx_Name_Is_In_LiSt: can’t find vertex\n“); 

#endif 

return(NULL); 


} 
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#ifdef GRAPHICS_DEBUG 
/* debugging */ 

printf("Entering Edge_Name_Is_In_List\n"); 

#endif 

ttifdef SDE_DEBUG_3 

printf("Edge_Mame_Is_In_List: edge_name = %s\n", edge_nanie); 

printf{“Edge_Name_Is_In_List: from->name = %s\n", (from == NULL)?"EXTERNAL":from->op“ 
>name) ; 

printf("Edge_Name_Is„In_LiSt: from = %d\n", from); 

printf{"Edge_Name_Is_In_LiSt: to->name = %s\n", (to == NULL)?"EXTERNAL":to->op->name); 
printf ("Edge_Name_Is_In_Li St; to = %d\n'‘, to) ; 

#endif 

v;hile (p != NULL) 

{ 

q = p->st; 

«ifdef SDE_DEBUG_3 

printf("Edge_Name_Is_In_LiSt: q->name = %s\n", q->name); 

printf(“Edge_Name_Is_In_.LiSt: q->from“>name = %s\n", (q->from == NULL)?“EXTERNAL";q- 
>from->op->name); 

printf{"Edge_Name_Is_In_LiSt: q->from = %d\n", (q->from)); 

printf("Edge_Name_Is_In_LiSt: q->to->name = %s\n“, (q->to == NULL) ?"EXTERNAL":q->to- 
>op->name); 

print f ("Edge_Name_Is_In_Li St: q->to = %d\n", {q->to) ) ; 

#endif 

if ((strcmp(edge_name, q->name) == 0)) 

{ 

if (from == q->from && to == q->to) 

{ 

ttifdef SDE_DEBUG_3 

printf("Edge_Name_Is_In_LiSt; find edge\n"); 

#endif 

return(q); 

) 

else 

{ 

p = p->next; 

) 

) 

else 

{ 

p = p->next; 

} 
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) 

#ifdef SDE_DEBUG_3 

print f (■*Edge_Name_Is_In_List: can't find edge\n"); 
#endif 


return(NULL); 


/*- 

HeadPtr Op_Name_Is_In_List (my_oper_name) 
char *my_oper_name; 

{ 

extern HeadPtr 

prototype; 

HeadPtr p; 

#ifdef GRAPHICS_DEBUG 
/* debugging */ 

printf ("Entering Op„Name_Is_In_List\n") ; 

#endif 

p = prototype; 

while (p != NULL) 

{ 

if (strcmp(p->name, my_oper_name) == 0) 
{ 

return(p); 

) 

else 

p = p->next; 

) 

return(p); 

) 

/*- 

HeadPtr Op_Number_Is_In_List (prod_no) 
int 

prod_no; 

{ 

extern HeadPtr 

prototype; 

HeadPtr p; 

ttifdef GRAPHICS_DEBUG 
/* debugging */ 

print f("Entering Op_Number_Is_ln_List\n"); 
#endif 

p = prototype; 
while (p != NULL) 

{ 

if (p->prod__no == prod_no) 

{ 

return(p); 

) 

else 

p = p->next; 

} 

return(p); 
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/*.......V 

terin_sys() 

{ 

void 

save_graphic_file 0 j 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering term_sys\n"); 

#endif 


kill_viewer(}; 

} 

/* - */ 

void save_graphic_file() 

{ 

void 

Output_OperatorS_Operators(}, 

Output_OperatorS_Streams{); 

FILE 

*fp, *fopen(); 

char 

buffer[30], 

* fi1e_name; 

PROD_INSTANCE 

temp_p, 

t emp_op_impl_list, 
t emp_t_op_impl, 
ops; 

HeadPtr 

Find_Header_Node_from_Op_or„TOpImpl_or_TOpSpec()^ 
p; 

extern HeadPtr 
prototype; 


/* 

The objective is to search the data structure(s) and create graphic attribute 
information for each of the objects found, 

*/ 


#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering save_graphic_file\n"}; 
#endif 

fp = fopen{"attr_file_name.grf", "r"); 
fscanf(fp, "%s", buffer); 
fscanf(fp, "%s", buffer); 

file_name = (char *)malloc(strlen(buffer)); 
fclose(fp); 

strcpy{file_name, buffer); 
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fp = fopen( file_naine, "w"); 

ops = psdl_components„froni_Prot (Global_Proto) ; 

while (production(ops) == prod_psdl_pair) 

{ 

temp_p = component_from_PsdlPair(ops); 
if (production(temp_p) == prod_op) 

( 

#ifdef SDE_DEBUG_3 

printf("save_graphic_file: operator id = %s\n", 
strO_to_str_ro(StrValue(Get_Id(id_fronL_Op (temp_p) )) )) ; 
ttendif 

p = Find_Header„Node_from_Op_or_TOpImpl_or„TOpSpec (temp_p) ; 
if (p •= NULL) 

{ 

fprintf(fp, "OPERATORXn"); 
fprintf(fp/ "%s\n", p->name); 

Output_Op€ratorS_Operators(fp, p->operator_list); 
Output_OperatorS_Streams(fp, p“>stream_list); 
fprintf(fp, "ENDOPERATORXn"); 

) 

) 

else if (production(temp_p) == prod_data) 

{ 

if (production (type_impl_from_Data (temp_p) ) == prod_type_impl) 

( 

temp_op_impl_list = operator_impl_list_from_'IVpeImpl ( 
type—Data (temp_p) ) ; 

while (production(tenip_op_impl_list) == prod_op_impl_list_pair) 

{ 

temp_t_op_impl = t_oper_impl_from_OpImplListPair{temp_op_impl_list) ; 

if (production(temp_t_op_impl) == prod_t_op„impl) 

{ 

#ifdef SDE„DEBUG_3 

printf("save_graphic_file: operator id = %s\n", 

strO_to_str_ro(StrValUG (Get_Id(id_f rom_TOpImpl (temp_t_op_impl)) )) ) ; 

#endif 

p = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec (temp_t_op_impl) 
if (p != NULL) 

( 

f printf(fp, -OPERATOR\n"); 

fprintf(fp, "%s\n", p->name); 

Output_OperatorS_Operators(fp, p->operator_list); 
Output_OperatorS_Streams(fp, p->stream_list); 
fprintf(fp, "ENDOPERATORXn"); 

) 

) 

temp_op_impl_list = operator_impl_list_from_OpImplListPair( 

temp_op_impl_list) ; 

) 

) 

) 

ops = psdl_components_from_PsdlPair(ops); 

) 

fclose(fp); 
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ttifdef SDE_DEBUG_3 

printf{"GRAPHIC INFORMATION SAVED\n"); 

#endif 

} 

/* - 

void Output_OperatorS_Operators(Cp, operator_list) 

FILE 

*fp; 

OPNodePTR 

operator_liSt; 

{ 

OPERATOR 

q? 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering Output_OperatorS_Operators\n"); 
ttendif 

fprint £(fp, "OPERATORS\n"); 

while (operator_list != NULL) 

C 

q = operator_list->op; 

if (!{q->is_delGted)) 

( 

fprintf{fp, "%s\n", q->name); 
fprintf(fp, "%d\n", q->x); 
fprintf{fp, "%d\n", q->y); 
fprintf{fp/ "%d\n“, q->radius); 
fprintf(fp, "%d\n", q->color); 
fprintf(fp/ "%d\n", q->name_£ont); 
fprintf(fp, "%d\n", q->name_x); 
fprintf(fp, "%d\n", q->name_y); 
fprintf{fp, "%d\n", q->met_font}; 
fprintf{fp, "%d\n", q->mGt_x); 
fprintf(fp, "%d\n", q->met_y); 

fprintf(fp/ "%s\n"/ (q->is_tGrminator==l?"TRUE":"FALSE")); 

) 

operator_list = operator_list->next; 

} 

) 

/*- 

void Output_OperatorS_Streams(fp/ strGam_list) 

FILE 

*fp; 

ST_PTR 

stream_list; 

{ 

STREAM 

q; 

SPLINE_PTR 

r; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering Output_OperatorS„Streams\n"); 


V 
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ttendif 

fprintf(fp, "STREAMS\n"); 
while {stream_list != NULL) 

{ 

q = stream_list->st; 

if (!{q->is_deleted)) 

{ 

fprintf(fp, "%s\n“/ q->name); 

fprintf(fp, "%s\n", {q->from == NULL?"<NULL>":q->from->op->name)); 
fprintf{fp, "%s\n", (q'->to == NULL? "<NULL>“ :q->to->op->name) ) ; 

if ({q->from != NULL) II (q->to != NULL)) 

( 

fprintf{fp, -SPLINE\n"); 

if {q->arc != NULL) 

{ 

r = q->arc; 
while (r != NULL) 

{ 

fprintf(fp, "%d\n", r->x); 
fprintf(fp, "%d\n"/ r->y); 
r = r->next; 

) 

) 

fprintf(fp, "SPLINEENDXn"); 

) 

fprintf(fp, "%d\n", q->name_font); 
fprintf(fp, "%d\n"/ q->name_x); 
fprintf(fp, "%d\n", q->name_y); 
fprintf(£p/ "%d\n", q->latency_font); 
fprintf(fp, "%d\n"/ q->latency_x); 
fprintf{fp, "%d\n", q->latency_^); 

fprintf(£p, "%s\n", (q->is_state_variable==l?"TRUE":"FALSE")); 


) 


) 

/*--■ 

BOOL 


stream„list 

> 


Process„File() 


stream_list“>next 


r 


BOOL 

result, 

Get_Operator_list(), 
GGt„Stream_List(); 


HeadPtr 

header, 
Get_Header{) ; 


FILE 

* fopen(), 

*fp; 

int 

Print_OperatorS_Operators0, 
Print_OperatorS_Streams{), 
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Output_structure(), 
n; 

char 

buffer[30], 

* fi1e_name; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering Process_File\n"); 

#endif 

/* Load file name from where graphic attributes will be read */ 

fp = fopen("attr_file_name.grf"/ "r"); 
fscanf{fp, "%s", buffer); 

ftifdef SDE_DEBUG„2 

print f ('‘%s\n", buffer); 
ftendif 

file_name = (char *)malloc(strlen(buffer)); 

Strcpy(fi1e_name, buffer); 

if (strcmp{file_name, "new") != 0) 

{ 

fp = fopen( file_jiame, "r“); 

/* consume the "OPERATOR" word and continue or finish */ 
while ((n=fscanf{fp, "%s", buffer)) != EOF) 

{ 

/* process an operator header */ 
header = Get_Header{fp); 
if (header == NULL) 

( 

printf("Process_FilG: Get_Header FAILED\n"); 
fclose(fp); 
return(FALSE); 

) 

/*process operator list*/ 

result = Get_Operator_List(fp, header); 

if (result == FALSE) 

{ 

printf("Process_FilG: Get_Operator_list FAILED\n"); 
fclose(fp); 
return(FALSE); 

) 

/*process stream list */ 

result = GGt_Stream_List(fp, header); 

if (result == FALSE) 

{ 

printf("Process_File: Get_Stream_List FALIED\n"); 
fclose(fp); 
return(FALSE); 

) 

} 

fclose(fp); 
free(file_name); 

/* the following command is commented out for 


ease of debugging 1/21/94 */ 

/* Output_Structure(); */ 
return(TRUE); 

} 

else 

( 

return(TRUE); 

} 

) 

/*-*/ 

HeadPtr Get_Header(fp) 

FILE *fp; 

( 

HeadPtr 

Op_Name_Is_In_List(), 

Make_Operator_Header(), 

P; 

void 

Link;_To_Structure (); 
char 

buffer[30]; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering Get_Header\n"); 

#endif 

fscanf(fp, "%s", buffer); 

#ifdef SDE_DEBUG_2 

printf("%s\n", buffer); 
ftendif 

p = Op_Name_Is_In_List(buffer); 

if (p == NULL) 

{ 

ttifdef SDE_DEBUG_3 
/♦debugging*/ 

printf("Get_Header: header node with name %s not found, Aborted\n", buffer); 
ftendif 

/* need to malce new header node */ 

p = Ma}te_Operator_Header (buffer, NULL, NULL, Get_Unique_Id() , 0, FALSE); 
Link„To_Structure(p); 

} 

return(p); 


) 

/*-*/ 

BOOL Get_Operator_List(fp, head_node) 

HeadPtr 

head_node; 

FILE 

*fp; 

{ 

OPNodePTR 

Make_Operator„Node(), 
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new_vertex; 


clean_name = removG_blanks_from„string(name); 
front_part = get_vertex_type_name(clean_namG); 

char 


middle„part = get_vertex„oper_name(clean_name); 

* front_part, 

*middle_part , 


suffix_part = get_vertex_parameters(clean_name); 

♦suffix part. 


n = Vtx_Name_Is_In_LiSt(front_part, middle_part, suffix_part, head_node- 

*get_vertex_type_name{), 


>operator_list) ; 

*get_vertex_oper„name(), 


if (n != NULL) 

*get_vertex parameters{), 


{ 

♦remove blanks_from_string(), 


printf("Get_Operator_List: duplicated vertex node with name %s\n", name); 

*clean_name. 


return(FALSE); 

buffer[100), 


} 

name[100] ; 


else 

{ 

/* need to create a new vertex_node */ 

int 


name font. 


nev/_vertex = Make_Operator_Node (clean^name. 

name x. 


front_part, 

name_y. 


middle_part, 

met, 


suffix_part, 

met font, 


Get_Unique„Id(), 

met„x, 


NULL, 

met_y, 


X, 

radius. 


y/ 

X, 


radius. 

y. 


color. 

color; 


name_font, 
name_x. 

BOOL 


namely, 

is_terminator; 


met _f ont, 
met_x. 

OPNodePTR 


met_y, 

n. 


fake_is_deleted. 

Vtx_NamG_Is_In_List {) ; 


fake_is_new, 
f ak e_is_c omposit e, 

HeadPtr 


is_terminator, 

k. 


fake_is_modified); 

Op_Name_Is_In_List () ; 


Link_Operator(new_vertex, head_node); 

) 

free(clean_name); 

#ifdef SDE_DEBUG_1 


free(front_part); 

/* debugging */ 


free(middle_part); 

printf(“Entering Get_Operator_List\n"); 


free(suffix_part); 

ttendif 


) 

/* eat away the OPERATORS word */ 


return(TRUE); 

fscanf{fp, "%s", buffer); 


) 

/*-*/ 

while(fscanf[fp/ “%s", name) && {strcmp(name, "STREAMS") 

!= 0) ) 

BOOL Get_Stream_List(fp, head_node) 

{ 


FILE 

fscanf (fp, "%d'', &x) ; 


*fp; 

fscanf(fp, "%d", &y); 


HeadPtr 

fscanf(fp, “%d", &radius); 


head_node; 

fscanf (fp, "%d'‘, Sccolor) ; 


{ 

fscanf(fp, "%d“, &name_font); 


int 

fscanf(fp, "%d", &name_x); 


narae_font, 

fscanf(fp, "%d", &name_y); 


name_x, 

fscanf(fp, "%d", &met_font); 


namely, 

fscanf(fp, "%d", &met_x); 


latency_font, 

fscanf(fp, "%d", &met_y); 


latency_x, 

latency_y. 

fscanf(fp, "%s", buffer); 

is_terminator = (strcmp(buffer, "TRUE")==0); 


latency; 

OPNodePTR 


176 




APPENDIX D - Auxiliary Functions 


from, 

to, 

Vtx_Op_Id_Is_In_List(}, 
op_list; 

ST_PTR 

Make_Stream_Node(} , 
new_edge, 

St ; 

STREAM 

n, 

Edge_Name_I s_In_L i s t {) ; 
char 

* optional_type_name, 

*oper_name, 

*parameter_list, 

*get_vertex_type_name(), 
*get_vertex_oper_name() , 
*get_vertex_parameters(), 
*remove_blanks_from_string(), 
*clean_name, 

buffer[40], 
name[30]; 

SPLINE_PTR 

GetSpline{), 
t; 

ST_PTR 

sp; 

BOOL 

is_state_variablG; 


#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering Get_Stream_List\n"); 
frendif 

op_list = head„node->operator_list; 

while {fscanf(fp, "%s", name) && (strcmp(name, "ENDOPERATOR") != 0)} 

( 

#ifdef SDE_DEBUG_3 

printf("Get_Stream_List: stream name = %s\n", name); 

#endif 

fscanf(fp, "%s", buffer); 

clean_name = remove_blanks_from_string(buffer); 

if (strcmp{clean_name, "<NULL>") == 0) 

( 

ttifdef SDE_DEBUG_3 

printf{"Get_Stream_List: from node = %s\n", clean_name); 

#endif 

from = NULL; 

} 

else 

( 


optional_type_name = get_vertex_type„name{clean_name); 

#ifdef SDE_DEBUG_3 

printf("Get_Stream_LiSt: from node = %s\n“, clean_name); 

printf("Get_Stream_List: optional_type_name = %s\n", optional_typG_name); 
#endif 

oper„name = get_vertex_oper_name(clean_name); 
ttifdef SDE_DEBUG_3 

print f (''Get_Stream_LiSt: from node = %s\n", clean_name); 
printf("Get_Stream_List: oper_name = %s\n", oper_name); 
ttendif 

parameter_list = get_vertex_parameters(clean_name); 

#ifdef SDE_DEBUG„3 

printf(“Get_Stream_List: from node = %s\n", clean_namG); 

printf("GGt_Stream_List; paramGtGr_list = %s\n", parameter^list); 

tendif 


from = Vtx_Name_Is_In_List{optional_type_name, oper_namG, 
parameter_list, op_list); 

free{clean_name); 
free(optional_type_name); 
free(oper_name); 
free{parameter_list); 

if (from == NULL) 

{ 

print f ("Get_.Stream„List; from vertex %s not found\n", 

clean_name) ; 

return (FALSE); 

} 

} 


fscanf(fp, '‘%s", buffer); 

clean_name = remove_blanks_from_string(buffer); 
if (strcmp{clean_name/ "<NULL>") == 0) 

{ 

#ifdef SDE_DEBUG_3 

printf ("Get_Stream_List: to node = %s\n", clean__name) ; 

#endif 

to = NULL; 

) 

else 

{ 

optional_type_name = get_vertex_type_name(clean_name); 
ttifdef SDE_DEBUG_3 

printf("Get_Stream_List: to node = %s\n", clean^name); 

printf("GGt„Stream_List! optional_type_name = %s\n", optional_type_name); 
#endif 

oper_name = get_vertGx_oper_name(clean_name); 
ttifdef SDE_DEBUG_3 

printf("Get_Stream_LiSt; to node = %s\n", clean_name); 
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printf (’'Get_Stream_List: oper_name = %s\n“, oper_name) ; 
ttendif 

parameter_list = get_vGrtex„parameters{clean_namG); 

#ifdef SDE_DEBUG_3 

printf ("Get_Streain_List: to node = %s\n", clean_naine); 

printf ('*Get_Stream_List; paramGt€r_list = %s\n"/ parameter_list) ; 

ttendif 

to = Vtx_Name_Is_In_List(optional_type„name, oper_name, 
parameter_list, op_list); 

free{clean_name); 
free(optional_type_name); 
free{oper_name); 
freG{parametGr_list); 

if (to == NULL) 

{ 

printf("Get_Stream_List: to vertex %s not found\n", buffer); 
return(FALSE); 

} 

} 

t = GetSpline(fp); 

fscanf(fp, ''%d''r &name_font) ; 
fscanf(fp# "^d", &name_x); 
fscanf(fp/ “%d", &name_y); 
fscanf(fp, "%d", &latency_font); 
fscanf(fp/ ■%d“/ &;latency_x) ; 
fscanf(fp/ "%d"/ &latency_y); 

fscanf(fp, buffer); 

is_statG_variable = (strcmp(buffer, "TRUE")==0); 

n = Edge_Name_Is_In_List(name, from, to, head_node->stream_list); 
if (n != NULL) 

{ 

print f ('‘Get_Stream_List: duplicated stream with name %s\n*', 

name); 

return(FALSE); 

) 

el se 

{ 

/* create new stream node */ 
new_Gdge = Make_Stream_Node(name, 

Get_Unique_Id(), 

from, 

to, 

name„font, 
name_x, 
name_y, 

latency_font, 
latency_x, 
latency _y, 
t, 

fake_latency, 
f a ke_i s_de1et ed, 
fake_is_new, 
fake_is_modifled, 
fake_is_state 
) ; 


Link_St ream (nev/„edge, head_node) ; 

) 

) 

return(TRUE); 

) 

/* - */ 

SPLINE_PTR Getspline(fp) 

FILE *fp; 

( 

SPLINE_PTR 

dummy, last, p; 

char 

buffer[30]; 

int 

X, y; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering GetSplineXn"); 
ttendif 

dummy = (SPLINE„PTR)malloc(sizeof(SPLINE_NODE)); 
dummy->nGxt = NULL; 
last = dummy; 

/* eat away the SPLINE word */ 
fscanf(fp, "%s“, buffer); 

while(fscanf(fp, "%s", buffer) && (strcmp(buffer, "SPLINEEND") != 0)) 

{ 

sscanf (buffer, "%d'‘, &x) ; 
fscanf(fp, "%d", &y); 

p = (SPLINE_PTR)malloc(sizeof(SPLINE_NODE)); 

p->X = X; 

P->y = y; 

p->nGxt = NULL; 
last->next = p; 
last = p; 

} 

last = dummy->next; 
free(dummy); 
return(last); 

) 

/* - */ 

ST_PTR Make_Stream„Node(name, st_no, from, to, 
name_font, name_x, namely, 
latency_font, latency_x, latency_y, 
spl, latency, is_deleted, is_nGW, 

is_modified, is_state) 

char 

*name; 

OPNodePTR 

from, 

to; 

int 

name_font, 
name_x, 
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name_y, 
latency_font, 
latency_x, 
latency_y, 

1at ency; 

BOOL 

is_deleted/ 
is_new, 
is_modified, 
is_state; 

SPLINE_PTR 
spl; 

{ 

ST_PTR 

s; 

STREAM 

r; 

#ifdef GRAPHICS_DEBUG 
/* debugging */ 

printf("Entering Make„Stream_Node\n"); 
ttendif 

s = {ST_PTR)malloc(sizeof{ST_HEAD}); 

r •= {STREAM)malloc{sizeof(ST_NODE)}; 

r->name = strdup(name); 

r->id = st_no? 

r->from = from; 

r->to = to; 

/* r->from and r->to now points to the op_nodGs 
which constain the info of the tv;o end-points 
of the data stream */ 
r->arc = spl; 
r->latency = latency; 
r->is_state_variable = is_state; 
r->is_new = is_new; 
r->is_deleted = is_deleted; 
r->is_modified = is_modified; 

r->name_font = name_font 
r->name_x = name„x; 
r->name_y = name_y; 

r->latency_font = latGncy_font; 
r->latency_x = latency_x; 
r->latency_y = latency_y; 

s->st = r; 
s->next = NULL; 
return(s); 

} 

/* - */ 

void Lin)c_To_Structure(p) 

HeadPtr p; 

{ 

extern HeadPtr 

prototype; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering Link_To_StructurG\n"); 
iendif 


p->next = prototyped- 
prototype = p; 

) 

/*-*/ 


int Get_Unique_Id() 

{ 

extern int 
unique_id_count; 

int temp; 

temp = unique_id_count; 


unique_id_count = unique_id_count + Id- 
return (temp) ; 

} 

/* - */ 


Output_Structure() 

{ 

int 

Print_PrototypeS_Operators(), 

Print_PrototypeS_Streams(); 

extern HeadPtr 
prototype; 

HeadPtr 

P; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering Output_Structure\n"); 

Hendif 

printfC-STRUCTURE-\n"); 

p = prototyped- 
while (p != NULL) 

{ 

print e("OPERATOR\n") ; 
print f("%s\n", p->name); 
printf("%d\n“d p->op_id_no); 

print f ("%s\n''d (p->marked_for_delete == TRUE)?"TRUE":"FALSE“); 
printf("%d\n"d p->met); 

printf("%s\n“d (p->is_composite==l?"IS_COMPOSITE":"NOT„COMPOSITE")); 
/* Print_OperatorS_Operators(p->operator_list); */ 

/* Print„OperatorS_Streams(p->stream_liSt); */ 
printf("ENDOPERATORNn"); 


p = p-> next; 

} 

) 

/*- 


Print_OperatorS_Operators(o_list) 

OPNodePTR o_list; 

{ 

OPERATOR 

q; 

#ifdef SDE_DEBUG_1 

print f {“Entering Print_OperatorS_Operators\n'‘) ; 
#endif 

print f("OPERATORS\n") ; 
while {o_list != NULL) 

( 
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q = o„list->op; 

printf("o_list = %d\n", {int)o_list); 
print f {*'o_list->op = %d\n"/ {int)q); 
printf ("name: %s\n’', q->name}; 
printf("name_font: %d\n", q->name_font); 
printf("op_id; %d\n", q->id); 
printf("met: %d Xn"/ q“>met); 
print f ("met_font: %d\n'\ q->met_font Im¬ 
print f("x: %d\n“/ q->x); 
printfC'y: %d\n", q->y); 
printf("radius: %d\n"i q“>radius); 
printf{"color: %d\n", q->color); 

printf("deleted: %s\n", (q->is_deleted==l?"TRUE";"FALSE")); 
printf("new; %s\n", (q->is_new==l? "TRUE" : "FALSE" )) ,* 
print£("composite: %d\n", q->is_composite); 

printf("terminator: %s\n", (q->is_terminator==l?"TRUE":"FALSE")}; 
print £{"modified: %s\n", {q“>is_modified==l?"TRUE":"FALSE")); 

o_list = o_list->next; 

} 

} 

/* - 

Print_Operat orS_St reams{s_list) 

ST_PTR 
s_list; 

{ 

STREAM 

q? 

SPLINE_PTR 
r ; 

ftifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering Print_OperatorS„Streams\n"); 
ttendif 

printf("STREAMS\n"); 
while (s_list != NULL) 

{ 

q = s_list->st; 

printf("%s\n", q->name); 
printf{"%d\n", q->id); 

printf{"%s\n", {q->from == NULL?"<NULL>":q~>£rom->op->name)); 
printf { "%s\n", (q->to == NULL?"<NULL>":q->tO'^>op->name)); 

printf("SPLINEXn"); 
r = q->arc; 
while (r != NULL) 

{ 

printf("%d\n"/ r->x); 
printf("%d\n"/ r->y); 
r = r->next; 

} 

printf("SPLINEENDXn"); 
printf("%d\n", q“>latency); 

printf ("%s\n", (q->is„delGted==l?"TRUE":"FALSE")); 
printf{"%s\n", {q->is_new= = l?"TRUE":"FALSE") ) ; 
printf("%s\n", (q->is_state_variable==l?"TRUE":"FALSE")); 
printf{"%s\n", (q->is_modified==l?"TRUE":"FALSE")); 


/ 


Auxiliary Functions 


s_list = s_list->nGxt; 

) 

) 

%1 

/* - */ 


y*********************************1»*«r«* ******************************** ***««-* 

**** This £i£th set o£ £unctions were already existing and 
★ *** designed to help enforce the consistency of PSDL program. 

**** Documented originally as filet ed.4.ssl 
*****************************************************************************^ 

/* this file contains all the routines needed to enforce consistency of the 
PSDL program */ 


/* - */ 

/* The following definitions generate a Graphic Editor entry in the editor’s 
main menu. They are a faithful copy of what is stated in the synthesizer's 
user's manual. Except that in the manual it is explained that a ".c" file 
with these definitions will do. VJhiie investigating this, I arrived to the 
conclusion that such is not the case. The definition must be included in 
an SSL file to v;ork- 

*/ 

/* - */ 

/* 

Changes; 

2/l/95replacing all calls to the function Mal^e_DeclarationsNull 
with calls to the function Make_Empty_Declarations 

/* - */ 

%[ 

/* - */ 

void EnforcG_Consistency() 

{ 

PROD_INSTANCE 

temp_P/ 

temp_son/ 

IdlsNull{) ; 

void 

Add_New_Ops_To_Proto (), 

Clean_Op{), 

Clean_Data(); 

ftifdef SDE_DEBUG_1 

print f("Entering Enforce_Consistency\n"); 
ttendif 

Add_New_Ops_To_Proto{), 

temp_p = psdl_components_from_Prot(Global_Proto); 

/* temp_p now points to psdl„components */ 

while (production(temp_p) == prod_psdl_pair) 

{ 

temp_son = component_from_PsdlPair(tGmp_p); 
if (production(temp_son) == prod_op) 

{ 

ttifdef SDE_DEBUG_2 

printf("Enforce„Consistency; Op name = %s\n", 

strO_„to_str_ro(StrValue(Get_Op_Name( temp_son)))} ; 
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ttendif 

if (IntValueddlsNull (id_from_Op(temp_son) )) == 0) 

{ 

Clean_Op{temp_son); 

} 

} 

else if (production(temp_son) == prod_data) 

{ 

ttifdef SDE_DEBUG_2 

printf{"Enforce_Consistency: Type name = %s\n", 

strO_to_str_ro(StrValue{Get_Id(id_from_Data(temp_son))))); 

ttendif 

if {IntValue(IdlsNull{id_from_Data{temp_son))) == 0} 

{ 

Clean_Data(temp_son); 

) 

) 


/* 

temp_p = son{temp_p/ 2); 

*/ 

temp_p = psdl_components_from_Psdl Pair (teinp_p) ; 
) 


#ifdef SDE_DEBUG_1 

printf("Leaving Enforce_ConsistGncy\n"); 

#endif 

) 

/* - */ 

void ClGan_Op{p) 

PROD_INSTANCE p; 

{ 

HeadPtr 

h, 

Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec{), 

Make_Operator_HeadGr{); 

ATREE 
temptree, 

atree = bu_atree{br_buf(cur_browser)); 

PROD_INSTANCE 
temp_p, 
new_op_spGC, 
new_op_impl, 
new_input s_list , 
new_out pu t s_list, 
newjtnet, 

new_stream_list# 
new_constraint_list, 

Get_Op_Name(), 

Make_Op (), 

Make_Inputs_List {), 

Make_Outputs_List{} , 

Make_New_0„Timing_Info{), 

Build_Stream(), 

MakG_St reamsNul1{), 

Build_Constraints(), 

Make_ConstraintsNull{) / 


Op_Impl_Has_Non_Null_Streams(}, 
Op_Impl_Has_Non_Null_Constraints() , 
Replace_Input_Output_Met(), 
Replace_StrGam_Constraint_List(), 
Op_Impl_Is_Null (), 

Empty_Graph(); 

/* 

Make_OpImplNull{); 


void 

Print_'IVpe_Decl () ; 
boolean 

need_new_op_spec, 
needjiew_op_impl; 

ttifdef SDE_DEBUG_1 

printf("Entering Clean_Op\n"); 
ttendif 

h = Find_Header_Node_from_Op„or_TOpImpl_or_TOpSpec(p); 
if (h =:= NULL) 

{ 

ttifdef SDE_DEBUG_2 

/♦debugging*/ 

printf("Clean_Op; cannot find header_node\n"); 

ttendif 

/* need to make new header node */ 
h = Make_Operator_Header(strO_to_str_ro{StrValue{Get_Op_Name{p)) 

). 

NULL, NULL, Get_Unique_Id{), (int}p, FALSE); 

Link_To_Structure(h); 

) 

ttifdef SDE_DEBUG_2 
/* debugging */ 

printf{"Clean_Op: Op„Name = %s\n", h->name); 
ttendif 

if (1{h->multi_op_error)) 

{ 

if (h->input_error) 

{ 

/* 

Print_Type_Decl (h->inh_input_decl); 

*/ 

new_inputs_list = Make_Inputs_List{h->inh„input_decl); 

) 

else 

( 

/* 

new_inputs_list = son{son{p, 2), 2); 

*/ 

new_inputs_list = o_inputs_list„f ronuOperatorSpec (operator_spec_from_Op (p)) ; 

} 

if (h->output_error) 

{ 

/* 
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Print_Type_Decl(h->inh_output_decl); 


need_nGW_op_spec = false; 


*/ 


) 


nev7_outputs_list = Mak;e_Outputs_List (h->inh_output_decl) ; 


) 

else 

( 


/* 

*/ 


new_outputs_list = son(son{p, 2), 3); 

new_outputs_list = o_outputs_list_from_OperatorSpec(operator_spec_from_Op{p)}; 


if {h->met_error) 

{ 

ttifdef SDE_DEBUG_2 
/*debugging*/ 

if (production (o_tin\ing_info_from_OperatorSpGc ( 

opGrator_spGc_from„Op{p))) == op_search("OpTimingInfo")) 

{ 


print f ("Clean_Op: old_met = %d\n’', IntValue ( 
Convert_Time_To_IntegGr{ 
t ime_f rom_OpTiiningIn f o { 

o_timing_info_from_OperatorSpec( 
opGrator_spec_from_Op{p)})})); 

) 

gIsg 

{ 

print f ('•Clean_Op: old„met = 0\n"); 

) 

printf (“Clean_Op: new_met = %d\n'', IntValuG( 

Convert_TimG_To_Integer(h->inh_met))); 

ttendif 

nGw_mGt = MakG„NGw„0_Timing_In fo(h->inh_met, 

o_timing_info__from_OperatorSpec(operator_spec_from_Op(p))); 

) 

else 

{ 

new_met = o_timing_info_from_OperatorSpec(operator_spec_from_Op(p)); 

) 

if {h“>input_error || h->output_error || h“>met_error) 

{ 

h->input_error = false; 
h->output_Grror = false; 
h->met_error = false; 


tGnip_p = son{p, 2) ; 

temp_p = operator_spec_from_Op(p); 

new_op_spec = Replace_Input_Output_Met{temp_p, new_inputs_list, 
new_output s_list, new_met); 
need_new_op_spec = true; 

) 

else 

( 

new_op_spec = operator_spec_from_Op{p); 


/* 

if ((IntValue(Get_Iinpl_Form(operator_impl_from_Op(p))) > 0) 
&& {BoolValue(Empty_Graph(operator_impl_from_Op(p))))) 

{ 

need_new_op_impl = true; 
new_op_impl = Make_OpImplNull () ; 


) 

else 

{ 

*/ 


if (h->stream_error) 

{ 

new_stream_list = Build_Streams( 

IdSetDif ference( 
h->edge_id_set, 

IdSetUnion( 

h->state„id_set, 

IdSGtUnion( 

h->inh_input_id_set, 
h->inh_output_id_set))) , 

Global_'IVpe_Dec 1) ; 

) 

else 

( 


i f (BoolValue (Op_Impl_Has_Non_Nul l_St reams (operator_impl„from_Op (p) ) } ) 

{ 

new_strGam_list= optional_streams_from_Declarations( 
declaretions_from_OperatorImpl( 

operator_impl_from_Op(p))); 

} 

else 

new_stream_list = Make_StreamsNull(); 


if (h->constraint_error) 

{ 


if (BoolValue(Op_Impl_Has_Non_Null„Constraints (operator„impl_f roii\_Op (p) ) )} 

{ 

new_constraint_list = Build_Constraints(h->vertex_id_set, 
constraints_from_Cc( 
cc_from_0peratorlmpl( 

operator_impl_f ronv-Op (p) ) ) ) ; 

} 

else 

new_constraint_list = Build_Constraints{ 
h->vertGX_id_set , Make_ConstraintsNull{}}; 

) 

else 

{ 


if (BoolValue {Op_Impl__Has_Non_Null_Constraints (operator_impl_f ronL_Op (p)) )} 

( 

neV7_constraint_list = const raints_from„Cc ( 
cc_from_0peratorlmpl( 

operator_impl_from_Op(p))); 
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) 

else 

nev/_constraint_list 


tl. 


HakG_ConstraintsNull {); 


Make_Type_Node(>, 
Find_Type_Node_erom_Data(); 


if (h->stream_error I| h->constraint_error) 

( 

h->stream_error = false; 
h->constraint_error = false; 

temp_p = opGrator„impl_from_Op(p); 

new_op_impl = Replace_Stream_Constraint_List{temp_p, 
new_stream_list, nGw_constraint_list}; 
need_nGw_op_irapl = true; 

) 

else 

{ 

new_op_impl = operator_impl_from_Op{p); 
need__nGW_op_impl = false; 

) 

/* 

} 

*/ 

if {need_new_op_spec I I nGed_new_op„impl) 

{ 

need_new_op_spec = false; 
need_new_op_impl = false; 

temptree= tree_to__atree{Make_Op( id_from_Op (p), 
nGw_op_spec, nGw_op_impl)); 
atree_is_not_maintained{temptree) = true; 

insert_placeholder_and„set_selection(atree/ p); 


ATREE 
temptree, 

atree = bu_atree (br_buf (cur„brov/ser) ) ; 

PROD_INSTANCE 

temp_p, 

temp_type_impl, 
t emp_op_impl_1is t, 
t emp_t _op_imp1, 
new__op_impl , 
new_st ream„list, 
new_constraint_list, 

Make_TOpImpl(), 

Make_TOpImplNull{), 

Build_Stream{), 

Make_StreamsNull(), 

Build_Constraints(), 
Make_ConstraintsNull0, 
Op__Impl_Has_Non_Null_StrGams () , 
Op_Impl_Has_Non_Null_Constraints (}, 
Replace_Stream_Constraint_List () , 
Op_Impl_Is_Null(), 
Make_NGW_Op_Impl_List(), 
Concat_Op_Impl_List{), 

Make_TypeIrapl(); 

/* 

Make_OpImplNull{); 

*/ 


void 

Print„Type_Decl(); 


) 

} 


if (context{temptree) i- context(atree)) 
{ 


} 

else 

{ 

) 


insert_coersion(atree, temptree); 


swap_SGlections(temptree, atree); 


establish_resting_place(at ree); 
rm_atrGG(temptree); 


/* - 

void Clean_Data (p) 

PROD_INSTANCE p; 

{ 

HeadPtr 

h, 

Find_Header_Node„from_Op_or_TOpImpl_or_TOpSpec(), 
Make_Operator_Header(); 

T/PE_LIST 


*/ 


boolean 

need_new_op_impl; 

#ifdef SDE_DEBUG_1 

print f ("Entering Clean_Data\n'') ; 
ttendif 


11 = Find_TypG_Node_from_Da t a(p); 
if (tl == NULL) 

{ 

tl = Make_Type_Node(strO_to_str_ro(StrValuG(id_from_Data(p)))); 
} 

temp_type_impl = type_impl_from_Data(p); 
if (production(tGmp_type_impl) == prod_type_impl) 

{ 

temp_op_impl_list = 

operator_impl_list_from„TypeImpl(temp_type_impl); 

v;hile (production(temp_op_impl_list) == prod_op_impl_list„pair) 
{ 


temp_t_op_impl = t_oper_impl_from_OpImplListPair( 
temp_op_impl_list); 
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if (production {temp_t„op„inipl) == prod„t_op_impl) 

{ 

h = Find„Header„Node_from_Op_or_TOpImpl_or_'ropSpec(temp_t_op_impl} ; 
if (h == NULL) 

{ 

#ifdef SDE_DEBUG_3 

/♦debugging*/ 

printf (”Clean_Data: cannot f ind header_jiode\n''}; 

ttendif 

/* need to make new header node */ 
h = Make_Operator_Header{ 

strO_to_str_ro{ StrValue(Get_Id( 

id_from_TOpImpl(temp„t_op_impl))))/ 

NULL, NULL, Get_Unique_Id(), (int)p, FALSE); 
Link_To_Structure(h)7 

) 


IdSetUnion{ 

h->inh_input_id_set, 
h->inh_output_id_set))}, 

Global_Type_Decl); 

) 

else 

{ 

if {BoolValue{Op_Impl_Has_Non„Null_Streams( 

opera tor_impl_from_TOpIinpl {temp_t_op_iTnpl}) )) 

{ 

new_stream_list= optional_streams_from_Declarations( 
declarations_from_0peratorlmpl( 
operator_impl_from_TOpImpl (temp_t_op_impl))) ; 

) 

else 

new_st ream_list = Make_St reamsNul1(); 

} 


ttifdef SDE_DEBUG_3 

/* debugging */ 

printf{"Clean_Datai Op_Name = %s\n", h->name); 

#endif 


if (BoolValuedsElement (id_from_TOpImpl (temp_t_op_impl) , tl->obsolete_op_impl)) ) 
{ 

temptree= tree_to_atree{Make_TOpImp1Null(}); 
atree_is_not_maintained(temptree) = true? 

insert„placeholder_and_set„SGlection{atree, temp_t_op_impl); 

if (context(temptree) != context(atree)) 

( 

insert_coersion(atree, temptree); 


} 

else 

{ 

) 


swap„selections(temptree, atree); 


establish_resting_place(atree); 
rm_a t r ee(t empt ree); 

) 

else if (!{h->multi„op_error)) 

{ 

/* 

if (BoolValue(Empty_Graph( 

operator_impl_from_TOpImpl(temp_t_op„impl)))) 

{ 

n ee d_new_op_imp1 = t rue; 

new_op_impl = Make_OpImplNull(); 

} 

else 

{ 

*/ 

if (h->stream_error) 

{ 

nev/_stream_list = Bui ld_St reams ( 

IdSetDif ference( 
h->edge_id_set, 

IdSetUnion( 

h->state_id_set, 


if (h->constraint_error) 

{ 

if (BoolValue(Op_Impl_Has_Non„Null_Constraints( 

opera tor_impl_from_TOpImpl (temp_t_op_impl)})) 

{ 

new_constraint_list = Build_Constraints{h->vertex_id_set, 
const raints_from_Cc ( 
cc_from_OperatorImpl( 

operator_impl_from_TOpImpl (temp_t_op_impl)))) ; 

} 

else 


{ 

new_constraint_list = Build_Constraints( 

h->vertGx_id_set, MakG_ConstraintsNull()); 

) 

} 

else 

{ 

if (BoolValue(Op_Impl_Has_Non_Null_Constraints{ 

operator_impl_from„TOpImpl(temp_t_op_impl)) ) ) 

{ 

new_constraint_list = constraints_from_Cc{ 
cc_from_0peratorlmpl( 

operator„impl_from_TOpImpl(tGmp_t_op_impl))); 

) 

else 

{ 

new_constraint_list = Make_ConstraintsNull() ; 

) 

) 


if (h->stream„error I| h“>constraint_error) 

{ 

h->strGam_error = false; 
h->constraint_error = false; 


temp_p = operator_impl_from_TOpImpl (temp_t_op_impl) ; 
new_op_impl = Replace_Streain_Constraint_List (temp_p, 
new_stream„list, new_constraint_list) ; 
need_nev;_op_impl = true; 

} 

else 

{ 
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/* 


*/ 


new_op_impl = operator_impl_from_TOpImpl(temp_t_op_impl); 
nGed_n ev7_op_ i mpl = false; 

} 

) 


if (nGed_new_op_impl) 

{ 

nee d_new_op_impl = false; 


establish_resting_place(atree); 
rm_atree(temptree); 

) 

/* 

else 

{ 

temptree = tree_to_atree(Make_TypeImpl{ 

Make„Nev;_Op_Impl_List {tl->undef inGd_op_impl)) ) ; 

atree_is_not_maintained (temptree) = true; 


temptrGG= tree_to_atree(MakG_TOpImpl( 
id_from_'K)pImpl{temp_t_op_impl) / 
new_op_impl)); 

atree_is_not_maintained{t€mptree) = true; 

insert_placeholder_and_set_selection{atree, 

if (context(temptree) != context(atree)) 

{ 

insert_coersion(atree, temptree); 

) 

else 

{ 

swap_selections(temptree^ atree); 


) 


temp_t_op_impl) ; 


establish_resting_place(atree); 
rm_a t ree(t empt ree); 

) 


} 

) 

temp_op_impl_list = operator_impl_from_TOpImpl( 
temp_op_impl_list) ; 

) 

} 

/* add the missing op impl */ 

if (!BoolValue(IsNull(tl->undefined_op_impl))) 

{ 

if (production(temp_type_impl) == prod_type_impl) 

{ 

temp_op_impl_list = 

operator_impl_list_f rom_'IVpeImpl (terap_type„impl) ; 

temptree = treG_to_atrGe(Concat„Op„Impl_List( 

MakG_New_Op_Impl_List(tl->undefined_op_impl), 
temp_op_impl_list) ) ; 


insert_placeholder_and_set_selection(atree, type_impl_from_Data(p)); 

if (context(temptree) != context(atree)) 

{ 

insert_coersion(atree, temptree); 

) 

else 

{ 

swap_selections(temptree, atree); 

) 

establish_resting_place(atree); 
rm_atree(temptree); 

} 

*/ 

) 

) 


/* - */ 

void Add_New_Ops_To_Proto0 

{ 

PROD_INSTANCE 
IsNull0, 

Make_Proto(), 

Merge_Psdl_Components(), 

temp_op_set, 

temp_p, 

temp_nGw_p, 

component_p, 

Get_Op_Name(), 

Make_New_Ops(); 

ATREE 

temptree, 

atree = bu_atree(br_buf(cur_browser)); 


char 

*component_namG; 


atree_is_not_maintained(temptree) = true; 

insert_placeholder_and„set_selection(atree, temp_op_impl_list); 

if (context(temptree) != context(atree)) 

{ 

insert_coersion(atree, temptree); 

) 

else 

( 

swap_selections(temptree, atree); 

) 


boolean 

not_found; 

#ifdef SDE_DEBUG._1 

printf("Entering Add_New_Ops_To_Proto\n"); 

#endif 

temp_op_set = Global_UndGf_Ops; 
if (!BoolValue(IsNull(temp_op_set))) 

{ 

temp_new_p = Merge_Psdl_Components( 

Make_Nev;_Ops{temp_op_SGt), psdl_components_from_Prot(Global_Proto)); 
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/* 

Make_New_Ops (t einp_op_set) , son {Global_Proto, 1) ) ; 

*/ 

move_selection(atree, one_point_selection(Global_Proto)) ; 
temptree = tree_to_atree(Make_Proto{temp_new_p)); 
atree_is_not_maintained(temptree); 

if (context(temptree) != context(atree)) 

{ 

ttifdef SDE_DEBUG„3 

print f("Add_New_Ops: insert_coersion\n")/ 
ttendif 

insert_coersion{atree/ temptree); 

} 

else 

{ 

#ifdef SDE_DEBUG_3 

print f ("Add_New_Ops; swap_select ion\n'') ; 
ttendif 

swap_selGctions(temptree, atree); 

) 

establish_rGsting_place(atree); 
rm_a tree(temptree); 

br_set_insert_pt_to_selection(cur_browser) ; 
cmd_cond_modifies(cur_browser, cur_buffer) ; 
br_paint_all(); 

) 

) 

/* - */ 

FOREIGN Build_InputsList(i, o, td) 

PROD_INSTANGE 
i,/* id */ 

o,/* psdl_components consisting of all operators */ 
td;/* all type declarations */ 

{ 

PROD_INSTANCE 
tGmp_input_ids, 
t emp_type_dec1, 

Extract_Input_Id_Set(), 

IsNullO , 

Make_InputsList Pair_From_Type_DGcl () , 

Make_InputsListNone(); 


temp_input_ids = Extract_Input_Id_Set(i, o); 

if (!BoolValue(IsNull(temp_input_ids))) 

( 

temp_type_decl = Build_Type_Decl(temp_input_ids, td); 
return (Make_InputsListPair_From_Type_Decl (temp_type_decl) ) ; 
) 

else 

{ 

return(Make_InputsListNone()}; 

) 


/* -- 

FOREIGN Build_OutputsList(i, o, td) 


/ 


Auxiliary Functions 

PROD_INSTANCE 
i, /* id */ 

o, /* psdl_components consisting of all operators */ 
td;/* all type declarations */ 

{ 

PROD_INSTANCE 
temp_input_ids, 
temp_type_dGcl, 

Extract_Output_Id_Set(), 

IsNull 0 , 

Make_OutputsListPair„From„'IVpe_Decl (), 
Make_OutputsListNone(); 


temp_input_ids = Extract_Output_Id_Set(i, o); 

if (!BoolValue(IsNull(temp„input_ids))) 

{ 

temp_type„decl = Build_Type_Decl (temp_input_ids, td) ; 
return(Make_OutputsListPair_From_TypG_DGcl(temp_type_decl)); 
) 

else 

{ 

return(Make_OutputsListNonG()); 

} 


/* - */ 

void Free_Linked_List(1_1) 

LINKED_LIST 1_1; 

{ 

LINKED_LIST head; 

while (1_1 != NULL) 

( 

head = 1_1; 

1_1 = l_l->next; 
free(head); 

) 


/*-*/ 

void Print__'IYpe_Decl (td) 

PROD_INSTANCE td; 

{ 

PROD_INSTANCE 
t emp_p, 

GGt_Id() , 

Get_Id_From_Type_Decl(); 


tGmp_p = td; 

v;hile (production(temp_p) == prod_type_decl) 

( 

printf("Print_Type_Decl: Id = %s\n", 

strO_to_str_ro(StrValue (Get„Id(Get_Id_From_'IVpe_Decl (temp_p) ) )) ) ; 

temp_p = type_declarations_from_TypeDeclPair (tGmp_p) ; 

} 

} 

/*-*/ 
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void Add_Root_Op(name) 
char *name; 

{ 

ATREE atree = bu_atree (br_buf (cur_brov/ser) ) ; 
ATREE temptree; 

PROD_INSTANCE 
Make_Op_Froni_SSLstring{), 
temp_p, 
t emp_new_p; 

PRODUCTION 

p_comp_prod = op_search("PsdlPair"}; 


#ifdef SDE_DEBUG_1 

print t (■' Entering Add_Root_Op\n") ; 
ttendif 


temp_p = psdl_components_froin_Prot (Global_Proto) ; 

insert_placeholder_and__set_select ion (atree, temp_p) ; 

temp_new„p = Make_Op_From_SSLstring(SSLstring(name)); 
temptree = tree_to_atree(temp_new_p}; 

atree_is_not_maintained(temptree) = true; 


if (context(temptree) != context(atree)} 

( 

insert_coersion(atree, temptree); 

} 

else 

{ 

swap_selections(temptree, atree); 


) 


est ablish_resting_place(at ree); 
rm_atree(temptree); 


/* update atree, buffer and selection */ 
br_set_insert_pt_to_selection(cur_browser); 
cmd_cond_modifies(cur_browser, cur_buffer); 

br_paint_all0 ; 

ttifdef SDE_DEBUG_1 

printf (“Leaving Add_Root_pp\n'') ; 
ttendif 


) 

/* - 

void sort_psdl_component s{) 

{ 

ATREE 

temptree, 

atree = bu_atree(br_buf(cur_browser)); 


PROD_INSTANCE 


Auxiliary Functions 


P/ 

top_id, 

temp_p, 

Sort_Psdl_Compoonents(), 
Make_IdNull(), 

Make_Proto(); 

LINKED_LIST 

temp_head, 

current_pos_trace = NULL; 


Free_Linked_List() ; 
ttifdef SDE_DEBUG_1 

printf("Entering sort_psdl„components\n“); 
tt endif 

/* remember the cursor position */ 

p = selection_apex(SE_selection(bu„atree(br_buf(cur_browser)))); 
temp_p = p; 

current_pos_trace = NULL; 

while (!at_top(temp_p) && (production(temp_p) != prod_op) 

&& (production(temp_p) 1= prod_data)) 

{ 

ttifdef SDE_DEBUG_3 

/♦debugging*/ 

print f {'‘sort_psdl_components: son_number = %d\n’', son_number (temp_p)) 

ttendif 

temp_head = (LINKED_LIST) malloc(sizeof(LINKED_LIST_NODE)); 
temp_head->item_number = son_number (temp_p) ; 
temp_head“>next = current_pos_trace; 
current_pos_trace = temp_head; 

t emp_p = fa t her(t emp_p); 


if (!at_top(temp_p) && (production(temp_p) != prod_no_component)) 
{ 

top_id = id_from_Op_or_Data(temp_p); 

) 

else 

{ 

top_id = Make_IdNull0; 

) 

ttifdef SDE_DEBUG_3 

printf("sort_psdl_components; top_id = %s\n", 
strO_to_str_ro(StrValue(Get_Id(top_id)))); 
ft endif 

move_select ion (atree, one_point_select ion (Global_Proto)); 


temptree = tree_to„atree(Make_Proto(Sort_Psdl_Components( 
psdl_components_from_Prot(Global_Proto)))); 

a t ree_is_not_maintained(t empt ree); 
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if (context(temptree) != context(atree)) 
insert_coersion(atree, temptree); 

else 

swap_selections(temptree, atree); 

establish_resting_placG(atree); 
rm__atree (temptree) ; 

br_set_insert_pt_to_selection(cur_browsGr); 
cmd_cond_modif ies (cur„browser, cur__buffer) ; 
br_paint_all () ; 

ftifdef SDE_DEBUG_3 

printf(“sort_psdl_componGnts; finished swapping trees\n"}; 
ttendif 

/* move cursor back to original position */ 
if (IntValue(IdlsNull(top_id)) == 0) 

{ 

temp_p = Find_Component{top_id, psdl_components_from_Prot(Global_Proto)); 
temp_head = current_pos_trace; 
while (temp_head != NULL) 

{ 

t emp_p = s on(t emp_p, (t emp_head->item_numtaer)); 
temp_head = temp„head->next; 

) 

p = temp_p; 

Free_Linked_List(current_pos_trace); 

temp_p = onG„point_selection(p); 
move_selection(atree, temp_p); 
br__set_ins€rt_pt_to_select ion (cur__browser) ; 
cmd_cond_modifies(cur_browser, cur_buffer); 

br_paint_all(); 

) 

#ifdef SDE_DEBUG_1 

printf("Leaving sort_psdl_componGnts\n"); 

#endif 


/* - */ 

void edit_graph() 

{ 

ATREE 
temptree, 

atree = bu_atree{br_buf(cur_browser)); 

PROD„INSTANCE 

junk_p; 

PROD_INSTANCE 
IsElement(), 
new_graph, 

Edit_Graph(), 

Make_Op_impl(), 

Make_CcNull(), 

/* 


Make„DeclarationsNull(), 

MakG_Empty_Declarations(), 

MakG_Id_From_SSLstring(), 

Get_Impl_Form{), 

Find_Component(), 

Find_Op_Impl_In_Data(), 

currGnt_op_id, 

component_id, 

op_impl_p, 

temp_p; 

PRODUCTION 
top_production; 

HeadPtr 

h, 

parGnt_head_ptr, 

Find_Parent_Name(), 

Find_Header_Node_f rom_Op_or_TOpImpl_or_TDpSpec () ; 

char 

*vertex_type_name, 

*componGnt_name; 

void 

House_Cleaning(), 

Refresh_Graph_Viewer(); 


ttifdef SDE„DEBUG_1 

printf("Entering edit_graph\n"); 
ftendif 

temp_p = selection_apex(SE_selection(bu_atree(br_buf(cur_browser)))); 

while (!at_top(temp_p) && (production(temp_p) != prod_op) && (production(temp_p) ! = 
prod_t_op_impl)) 

{ 

temp_p = father(temp_p); 

) 

if (at_top(terap_p)) 

( 

write_error_string("must select an operator before invoking edit-graph"); 
br_paint_al1(); 

) 

else 

{ 

if (production(temp_p) == prod_op) 

{ 

cur rent _op_id = id_ f rom_Op(t emp„p); 
op_impl_p = operator_impl_from_Op(tGmp_p); 
top_production = prod_op; 

) 

else 

{ 

current_op_id = id_from„TOplmpl(temp_p); 
op_impl_p = operator_impl_from_TOpImpl(temp_p); 
top_production = prod_t_op_impl; 

) 


I 
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if (IntValue(IdlsNull (current_.op_id)) != 0) 

{ 

write_error_string{"need to give operator name before invoking edit-graph"); 
br_paint_all(); 

) 

else 

{ 

Global_Refresh_Graph_Viewer = true; 

/* initialize the global variables error_message and ge_result */ 
if (error_message != NULL) 
free{error_message); 
ge_rGsult = N0_UPDATE; 

new_graph = Edit_Graph(); 

if (ge_result == G0_UP |1 ge_result == SAME_LEVEL || ge_result == G0_D0Vm) 

( 


if {IntValue(Get„Impl_Form(op_impl_p)) == 0) 

{ 

liifdef SDE_DEBUG_3 

print f{"edit_graph; make_Op_Impl\n"); 
ttendif 

temptree = treG_to_atree{ 

/* 

Make_Op_Impl(new„graph, Make_DeclarationsNull()/ 

*/ 

Make_Op_Impl(new_graph, Make_Empty_Declarations(), 
Make_CcNul1{))); 

} 

else 

{ 

#ifdef SDE_DBBUG_3 

printf("edit_graph: make_new_graph\n"); 
ttendif 

temptree = tree_to_atrGG( 

Make_Op_Impl(new_graph, 

declarations_from_OperatorImpl(op_impl_p), 
cc_from_OperatorImpl{op_impl_p))); 

) 

a t ree_is_not_main t ained(t empt ree); 

insert_placeholder_and_.set_selection(atree, op_impl_p); 

if (context(temptree) != context(atree)) 
insert_coGrsion(atree, temptree); 

else 

swap_sGlections(temptree/ atree); 

#ifdef SDE_DEBUG_3 

printf("edit„graph: after tree surgeryXn"); 

#endif 

establish_resting_place(atree); 
rm_a tree(temptree); 

br_set_insert_pt_to_selection(cur_browser); 
cmd_cond_modifies(cur_browser/ cur_buffer); 
br_paint_all(); 

House_Cleaning{SE_selection(bu_atree(br_buf{cur_browser)) )) ; 


if (ge_result == GO_UP) 

{ 

ttifdef SDE_DEBUG_3 

printf("edit„graph: GO_UP\n"); 

printf(“edit_graph; current_op_id = %s\n“/ 
strO_to„str_ro{StrValue(Get_Id(currGnt„op_id)))); 

#endif 

if (BoolValue(IsElement(current_op_id/ Global_Roots)) 

II (top_production == prod_t_op__impl)) 

{ 

ttifdef SDE_DEBUG_3 

printf("edit_graph: current_op is root\n"); 

#endif 

write_error_string{"operator has no parent, can't edit parent"); 
component_name = "“; 

) 

else 

{ 

ttifdef SDE_DEBUG_3 

printf("edit_graph: current_op is not root\n"); 

#endif 

temp_p = Find_Component(current_op_id/ 

psdl_components_from_Prot(Global_Proto)); 

#ifdef SDE_DEBUG_3 

printf("edit_graph: returned from Find^Component\n“); 

#endif 

h = Find_Header_Node„from_Op_or_'I'OpImpl_or_TOpSpec (temp_p) ; 

#ifdef SDE_DEBUG_3 

print f ("edit_graph: returned from Find_Header_NodG_from__Op_or_TOpImpl_or_TOpSpec\n") ; 
#endi f 

if (strcmp(h->parent, "") == 0) 

{ 

ttifdef SDE_DEBUG_3 

printf("edit_graph: h->parent == empty\n"); 
ttendif 

parent„head_ptr = Find_Parent_Name(h->name); 

#ifdef SDE_DEBUG„3 
if (parent_head_ptr != NULL) 

printf{"edit_graph; parent_head_ptr->name = %s\n“, parent_head_ptr->naine); 
else 

printf("edit_graph: parent_head_ptr->name = NULL\n"); 

#endif 


h->parent = strdup(parent_head_ptr->name); 


h->parent_type_name = strdup(parent_head_ptr->type_id); 
ttifdef SDE_DEBUG_3 

printf("edit_graph: h->parent_type_name = %s\n", h->parent_type_name); 
#endif 

) 

if (strcmp(h->parent_type_name, "") != 0) 

component_name = h->parent__type_name; 
else 

component_name = h->parent;; 
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#ifdef SDE„DEBUG_3 

print f {"edit^graph: parGnt_coinponent_name = #%s#\n", component_name) ; 
ttendif 

) 

) 

else if {ge_result == GO_DOVJN) 

{ 

if (strcmp(goto_child, ""} == 0) 

{ 

write_error„string(“must select a labelled operator to be decomposed before 
exiting graph editor”); 

component_namG = ""; 

} 

else 

{ 

vertex_type_name = gGt_vertex_type_name(goto_child); 
if (strcmp{vertex_type_name^ "") != 0) 

{ 

write_error_string("can’t decompose type-operator v/ithin an operator 

impl ’’) ; 

component_name = ""; 

) 

else 

{ 

component_name = get_vertex_oper_name{goto_child) ; 

} 

) 

) 

else 

{ 

component_name = ""; 

) 

if (strcmp{component_name, ”") != 0) 

{ 

/* 

printf (''edit_graph; component_name =%s\n", component_name) ; 


component_id = Make_Id_From„SSLstring(SSLstring(component_name)); 

component_id = Id(SSLstring(component_name)); 
temp_p = Find_Component(component_id/ 

psdl_components__from_Prot(Global_Proto)); 

if (production(temp_p) != prod_no_component} 

{ 

if (production(tGmp„p) == prod_data) 

{ 

temp_p = type_impl_from_Data(temp_p); 
if (production(temp_p) != prod_type_impl) 

{ 

write_error_string("parent has empty type impl"}; 

} 

else 

{ 

temp_p = Find_TOpImpl_in_operator_impl_list ( 


Make_Id_From_SSLstring( 

SSLstring(h->parent)}, 
operator_impl_list_from_TypeImpl(temp_p)); 

#ifdef SDE_DEBUG_3 

printf("edit_graph: New Op Id = %s\n", str0_to_str_ro(StrValue(Get_Id( 
id_froin_TOpImpl (temp_p)) )) ) ; 

ttendif 

move_selection(atree, one_point_selection ( 
id_from_TOpImpl(temp_p))); 

) 

} 

else 

{ 

move„selection(atreG, one_point„selection(id_from_Op(temp_p))); 

) 

br„set„insert_pt_to_selection (cur_browser) ; 
cmd_cond_modifies(cur_browser/ cur_buffer}; 
br_paint_all(); 

/* 

Refresh_Graph_Vlewer(); 

*/ 

edit_graph() ; 

) 

) 

else 

{ 

Refresh_Graph_Viewer(); 

) 

} 

else if (ge_result == ERROR) 

{ 

write_error_string(error_message); 

) 

} 

} 

ttifdef SDE_DEBUG_1 

printf("Leaving edit_graph\n"); 
ttendif 

) 

/* - */ 

HeadPtr Find_Parent_Name (child_name) 
char *child_name; 

{ 

boolean 

not_found = true; 

HeadPtr 
h = prototype; 

OPNodePTR 
p_list; 

/* 
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char 

*parent_name; 

*/ 

#ifdef SDE_DEBUG_1 

printf{"Entering Find„Parent_Name\n"); 
#endif 


#ifdef SDE_DEBUG„3 

printf("Find_Parent_Name: child_name = %s\n", child_name); 

#Gndif 

while (not_found && h != NULL) 

{ 

p_list = h->operator_list; 

v;hile (not_found && p_list != NULL) 

{ 

ftifdef SDE_DEBUG_3 

printf("Find_Parent_Name; target_name = %s\n", p_list->op->name); 
ttendif 

if {strcmp{child_name, p_list->op->name) == 0) 

{ 

not_found = false; 

/* 

parent_name = h->name; 

*/ 

) 

else 

{ 

p_list =: p_list“>next ; 

) 

} 

if {not^found) 
h = h“>next; 

} 

if {not_found) 

{ 

ftifdef SDE_DEBUG_3 

printf("Find_Parent_Name: parent not found\n“); 
ttendif 

return(NULL); 

) 

else 

{ 

ttifdef SDE_DEBUG_3 

print f("Find_Parent_Name: found parent\n"); 

printf("Find_Parent_Namej h->name = %s\n", h->name); 

ttendif 

return(h); 

) 

ttifdef SDE_DEBUG_1 

printf{"Leaving Find_Parent_Name\n“); 
ttendif 

} 

/* - 

FOREIGN Get_Ada_Op_Irapl() 

( 


PROD_INSTANCE 

temp_p, 

MakG_AdaOpImpl(); 


temp_p = selection_apex (SE_selection(bu„atree{br_buf (cur_browser) )) ) ; 

while ( lat_top{temp_p) && (production(temp_p) != prod_op) && (production(teinp_p) ! = 
prod_t_op„impl)) 

{ 

temp_p = father(temp_p); 

} 

if (at_top(temp_p)) 

{ 

write_error_string("must select an operator before invoking transformation"); 

br_paint_all(}; 
return(NULLVALUE) ; 

) 

else 

{ 

if (production(temp_p) == prod_op) 

return(Make_AdaOpImpl(id_from_Op(temp_p})); 
else 

return (Make_AdaOplmpl (id_from_TOpImpl (temp_p)) } ; 

} 

} 

/* - */ 

FOREIGN Remove_Leading_Blanks_From_String(s) 

PROD_INSTANCE(s); 

{ 

char 

*tGmp_string; 

int 


temp_string = strO_to_str_ro(StrValue(s)}; 

ttifdef SDE_DEBUG_3 
/♦debugging*/ 

printf("Reraove_Leading_Blanks_From_String: temp_string = %s\n", temp_string); 
ttendif 

while {((*tGmp_string) != NULL) && 

({(*temp_string) == ' ') || ((*temp„string} == ''))) 

temp_string ++; 

return(CommentLinG(SSLstring(temp_string))); 

) 


/*- 

FOREIGN Get_Ada_Type_Impl() 

{ 

PROD_INSTANCE 

temp_p, 

Make_Ada'IVpeImpl 0 ; 


temp_p = selGction_apex(SE_sGlection(bu_atree(br„buf (cur_browser) )) ) ; 
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while (!at_top(tGmp_p) && (production(temp_p) != prod_data)) 

{ 

temp_p = father{temp_p); 

) 

if (at_top{temp_p)) 

{ 

write_error_string("must select an operator before invoking transformation"); 

br_paint_all(); 
return(NULLVALUE); 

} 

else 

{ 

/* 

return (Make_Ada'IVpeImpl (son {temp_P/ 1}) ) ; 

*/ 

return (Make^daTi^pelmpl (id_f rom_Data (temp_p)) ) ; 

) ' 

) 

-*/ 

FOREIGN Build„Met(i, o) 

PROD_INSTANCE 
i,/* operator_id */ 

o;/* psdl_components consisting of all operators */ 

{ 

PROD_INSTANCE 
t emp„met, 

Extract_Met(), 

Valid_Met(); 

temp_jtiet = Extract_Met (i, o) ; 
if (BoolValue(Valid_Met(temp_met))) 

{ 

return (Make„OpTimingInfo_From_Met {temp_.met) ) ; 

} 

else 

{ 

return{Make_OpTimingInfoNone()); 

) 


/* -- -*/ 

void Remove_Empty_Graph{) 

{ 

PROD_INSTANCE 

P/ 

Empty_Graph (), 

Make_Op(), 

Make_OpImplNull(), 
t emp_op_impl_liSt, 
t emp_t_op„imp1, 
temp_p, 
temp_son; 

ATREE 
temptree, 

atree = bu_atree(br_buf(cur_browsGr)); 


p = psdl_components_from_Prot(Global_Proto); 
while (production(p) == prod_psdl_pair) 


{ 

temp_son = component_f rom_PsdlPair (p) ; 

if (production(temp_son} == prod_op) 

{ 

temp_p = operator_impl_from_Op( temp„son) ; 

if ((production(temp_p) == prod_op_impl) && BoolValue(Empty_Graph(temp_p) )) 

{ 

temptree = tree_to_atree (Make_Op (id_from_Op (temp_son}, 
opera tor_spGc_f rom_Op (temp_son) , 

Make_OpImplNull(}}); 

atree_is_not_maintained(temptree) = true; 
insert_placeholder_and„set_selection (atree, temp_son) ; 
if (context(temptree) !- context(atree)) 

{ 

insert_coersion(atree, temp„son); 

} 

else 

{ 

swap_selections(temptree, atree); 

) 

establish_resting_place(atree); 
rm_atree(temptree); 

} 

) 

else 

{ 

i f (product ion (type_impl_f rom_Data (temp_son)) == prod_type_impl) 

{ 

temp_op_impl_list = operator_impl_list_f rom_'IVpeImpl ( 
type_impl_f rom_Data {temp_son)) ; 

while (production(temp_op_impl_liSt) == prod_op_impl_list_pair) 

{ 

tGmp_t_op_impl = t_oper_impl_from_OpImplListPair( 

temp_op_impl_list); 

if (production(temp_t_op_impl) == prod_t_op_impl) 

{ 

temp_p = operator_impl_f rom_TOpIropl (temp_t_op_impl) ; 

if ((production(temp„p) == prod_op_impl) 

&& BoolValue(Empty_Graph(temp_p))) 

{ 

temptree= tree_to_atree(Make_TOpImpl( 

id_from_TOpImpl{temp_t_op_impl), 
Make_OpImplNull())); 

atree_is_not_maintained(temptree) = true; 

insert_placeholder_and_set_selectejop_(.aiicDp^impl) ; 

if (context(temptree) != context(atree)) 

{ 

insert„coersion(atree, temptree) 

) 

else 

{ 

sv/ap_select ions (temptree, atree) 
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/★♦*★******************★****★********★***#★**★*****♦*♦*****#*********★**♦*★** 

**** This sixth set of functions were already existing and was 

♦*** documented originally as filet ed.lO.ssl 

*********************★*******★***********************************************/ 

/*- FOREIGN FUNCTION DEFINITIONS -*/ 

graph foreign Edit_Graph{); 

o_inputs_list foreign Build_InputsList{id i, psdl_components o^ type_declarations td) 
o_outputs_list foreign Build_OutputsList(id i, psdl_components o, typG_declarations 
td); 

o_timing_info foreign Build_MGt(operator_id i, psdl_components o); 

BOOL foreign Is_Show_Graph_Text_View(); 
operator_impl foreign Get_Ada_Op_Impl(}; 
type_iinpl foreign GGt_Ada_'IVpe_Impl () ; 

t_oper_spec foreign Find_T__Op_Spec_In_Data (id o_id/ id t_id) ; 
commentLine foreign Remove_Leading_Blanks_From_String(CLINE i); 

/* - */ 

%{#include <sys/types.h> 

%) 

%{#include <stdlib.h> 

%) 

%{#include <pwd.h> 

%) 

%{#include <string.h> 

%} 

%{#include <malloc.h> 

%) 

% {#include " /n/sunS2/v;ork/mantak/New_Sde/includes. h" 

%) 

%{#include "/n/sun52/work/mantak/New_Sde/sde_ge.h" 

%) 

%{#include "/n/sun52/work/mantak/NGw_Sde/globals.h" 

%} 

%{#include "/n/sun52/work/mantak/New_SdG/sde_globals.h" 

%) 

%{#include "/n/sun52/v7ork/mantak/New_Sde/sde_macros.h" 
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y«*********************'****************************************************** 

**** This seventh set of functions were already existing and was 
**** documented originally as files ed.ll.ssl 
*****************************************************************************^ 

/* The following definitions generate a Graphic Editor entry in the editor's 
main menu. They are a faithful copy of what is stated in the synthesizer's 
user's manual. Except that in the manual it is explained that a ".c" file 
with these definitions will do. While investigating this, I arrived to the 
conclusion that such is not the case. The definition must be included in 
an SSL file to work. 

*/ 

%f 

/* 

#define SDE_DEBUG_3 0 
#define SDE_DEBUG_2 0 
»define GRAPHICS_DEBUG 0 
*/ 

extern BROVISER cur^browser; /* this is a global pointer to the current 

location of the cursor in the editor window 
*/ 


extern void refresh{); 
extern void edit(}; 
extern void kill_vievjer () ; 

1 * -*/ 

PROCEDURE call_graphic_editor() 

( 

ttifdef SDE_DEBUG„1 
/* debugging */ 

printf("Entering Call_graphic_editor\n"); 

#endif 

/* the following if statement is added to catch that case 
in which the user invokes the graph editor without 
selecting the structure to be edited. */ 

if (current_graph != NULL) { 

edit(); 

ftifdef SDE_DEBUG„2 
/* debugging */ 
printf("Back from GE\n"); 
ttendif 
} 

else { 

write_error_string("must select an operator before invoking graph editor"); 

/* 

printf("Error: you need to select the structure to be edited\n"); 


printfC before invoking the graphic editor\n"); 

*/ 

) 

) 

/* - */ 


PROCEDURE save_graphic„attributes() 
{ 

int 

clean_buffer_no_reclaim (); 

extern 
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BUFFER deleted; 

/* This procedure has two purposes: 1) wipe out the deletion o£ whatever 

is in the DELETED buffer and 2) write out the C-data structure back to 
a file. 

*/ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering Save_raphic_attributes\n“); 
ftendif 

clean_buffer_no_reclaim( deleted ); 
reclaim{); 

/* then save the data structure */ 

} 

/* - */ 

FOREIGN Find_T_Op_Spec_In_Data(o_id, t_id) 

PROD_INSTANCE o_id, t_id; 

{ 

PROD_INSTANCE 
Make_TOpSpecNil() , 

Find_T_Op_Spec() , 

component_id, 

o_operators_p, 

temp_son_p, 

temp_p; 

boolean 

keep_searching = true; 
char 

bufferI100]; 

sprintf(buffer, "%s“, strO_to_str_ro{StrValue(Get_Id{t_id}}}); 

temp_p = psdl_components_from_Prot{Global_Proto); 
while {keep_searching) 

{ 

if (production(temp_p) == prod_psdl_pair) 

{ 

temp_son_p = component_f rom_PsdlPair (teinp_p) ; 
if (production(temp_son_p) == prod_data) 

{ 

component_id = id_from_Data(temp_son_p); 

if (strcmp(strO_to_str_ro{StrValue(Get_Id{component_id})), 
buffer) == 0) 

{ 

o_operators_p = o_operators_from„TOpSpec( 

type„spec_from_Data (temp_son_p) ) ; 
return(Find_T„Op„Spec(o_id, o_operators_p)); 

} 

) 

} 

else 

{ 

keep_searching = false; 

} 

) 

return(Make_TOpSpecNil()); 

} 


/*-*/ 

FOREIGN Is_Show_Graph_Text_View() 

{ 

extern VIB'/_NO cur_viev/; 
return( 

(cur_view == name_to_view( "SHOV]_GRAPH_TEXT_VIB*r) ) 

? SSL„true 
: SSL_false 
) ; 

) 

/* - */ 

FOREIGN Edit_Graph() 

{ 

PROD_INSTANCE 

op_id, 

IdlsNull0, 

Make_Graph{)/ 
old_graph, 
temp_p; 
boolean 
different() ; 

OPNodePTR 
o_list, 

Sort_Operator_List0; 

ST_PTR 
s_list , 

Sort_Stream„List() ; 

HeadPtr 

h. 

Find_Header_Node_f rom_Op_or_TOpImpl_or_TOpSpec () , 

Make_Operator_Header(); 
void 

Remove_Deleted_Operators (), 

Remove_Deleted_Strearns()^ 

Restore_Deleted_Operators(), 

Restore_Deleted_Streams(), 

Add_Input_Output_State_Nodes (), 

Remove_Input_Output_State_Nodes(}, 

Update_Operator(}, 

Move_To_Structure_Front(), 

Link_To_Structure(); 


temp_p = selection_apex(SE_selection(bu_atree(br_buf(cur_browser)))); 

while (!at_top(temp_p) 

&& production(temp_p) != prod_op 
&& production (temp_p) != prod_t_op_impl) 
temp_p = father(temp_p}; 


if (at„top(temp_p}) 

{ 

v;rite_error_string("need to select an operator before edit graph"); 
return(Make_Graph(NULL, NULL)); 

) 

else 

{ 

if (production(temp_p) == prod_op) 
op_id = id_from_Op(terap_p); 
else 
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op_id = id_from_TOpIinpl (teinp_p) ; 

if (IntValue(IdlsNull(op_id)) != 0) 

( 

write„error_string{"need to give operator name before edit graph"); 
return(Make_Graph{NULL, NULL)); 

) 

else 

{ 

h = Find_Header_Node_from_Op_or_’IDpImpl_or_TOpSpec (temp_p) ; 
if {h == NULL) 

{ 

/* need to malce new header node */ 
h = 

Make_Operator_Header(strO_to_str_ro(StrValue(Get_Id(op_id))), 

NULL, NULL, Get_UniquG_Id(), 

{int)t emp_p, FALSE); 

Link_To_Structure(h); 

) 

else 

( 

Move_To_Structure_Front(h); 

} 

Update_Operator(tGmp_p, h); 

Add_Input_Output_State_Nodes(h); 
currGnt_graph = h; 

the_opGrator_list = h->operator_list; 
the_stream„list = h->streain_list ; 


/* currGnt_graph cannot be NULL are this point */ 
ttifdef SDE_DEBUG_3 

printf("-Edit_Graph: before call_graphic_editor-\n"); 

Print_OperatorS_Operators{current_graph->operator_list); 
Print_OperatorS_Streams(current_graph->stream_list); 

Sendif 


call_graphic__editor () ; 


#ifdef SDE_DEBUG_3 

printf("-Edit_Graph: after call_graphic_editor-\n") ; 

Print_OperatorS„OpGrators(current_graph->operator_list); 
Print_OperatorS_StrGams(current_graph->stream_list); 

ttendif 


Remove_Input_Output_State_Nodes(h); 


if (ge_result NO_UPDATE && ge_rGsult != ERROR) 

{ 

/* current_graph is a global variable v;hich will be modified by 
call_graphic_editor */ 

RGmove_Deleted_Operators(h); 

Remove_Deleted_Streams(h); 


o_list = Sort_Operator_List(current_graph->operator_list); 
current_graph“>operator_list = o_list; 

s_list = Sort_Operator_List(current_graph->stream_list); 
current_graph->strGaTtv_list = s_list; 

temp_p = Make_Graph(o_list, s_list); 
return(temp_p); 

} 

else if {ge_result == NO__UPDATE) 

{ 

Restore_Deleted_Operators(h); 

Restore_DGletGd„Streams(h); 

) 

else 

{ 

return(Make_Graph(NULL, NULL)); 

) 

) 

) 

} 

/*- 

boolean different(p, q) 

PROD_INSTANCE p, q; 

{ 

register int i; 

register PRODUCTION prodp, prodq; 

COMPARISON test; 

if (p == q) 

return(FALSE); 

if (p == NULLVALUE I| q == NULLVALUE) 

return(TRUE); » 

prodp = production(p); 
prodq = production(q); 

if (prodp != prodq) 
return(TRUE); 

if (GR_atom(prodp) && GR_atom(prodq)) 

{ 

if (atomic_type(prodp) ==atoinic_type(prodq) ) 
return( comparison(atomic_type(prodp), 
value_ptr(p), 
value_ptr(q) 

) 

!= Equal 

} ; 

else 

return(TRUE); 

) 

else 

{ 

for (i = leftmost_son(prodp); i <= rightmost_son(prodp); i++) 

{ 

test = different(son(p,i), son(q,i)); 
if (test != FALSE) 
return(test); 
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); 


pr o d__op e r a t or _i d_pa i r s, 

return(FALSE) ; 


p ro d_a1one„id_pair, 

} 


prod_a_decl/ 



prod_decl, 

) 


prod_stream. 

/*- 

-*/ 

prod_cc, 

init_sys3{) { 


prod_constraints, 
prod_a_constraint; 

ME me_user; 



/* extern PROCEDURE call_graphic_Gditor(); */ 


ttifdef SDE_DEBUG_1 

/* extern PROCEDURE save_graphic_attributes(); */ 


/* debugging */ 

FILE *tool_file/ *fopen(); 


printf{"Entering init_sys3\n"); 

#endif 

char BufferdOO + 1]; 



char hoine_dir [100] ; 

/* 

struct passwd *user_pass; 


/* create new menu */ 
mG_user = me_open("CAPS-Cmds"); 


/* create five menu items */ 

*/ 


(void) co„opGn( 

void 


"save-psdl", 
save_psdl, 

edit__graph() / 


co_valid 

sort_psdl_component s{)^ 


); 

clean_gedatatransfile(), 



enforcG„consistency_on(), 


(void) co_open( 

enforce_consistGncy_off(); 


"save-psdl-exit", 

int 


save_psdl_exit/ 
co_valid 

create_sb_query 0 , 


); 

print„psdl{), 


#ifdef D_EDITOR 

/* 


(void) co_open( 

split__psdl () / 


"enforce-consistency_on", 

*/ 


en f orce_c on sist ency_on, 

save_psdl(), 


co_valid 

save_psdl_exit(); 


) ; 

extern HeadPtr 


(void) co_open( 

prototype; 


*'enforce-consistency_of f", 

extern int 


enforce_consistency_off, 
co_valid 

unique_id_count; 


) ; 



#endi f 

extern PRODUCTION 



prod_prot, 


(void) co_open( 

prod_psdl_pair, 


"sort-psdl-components". 

prod^op. 


sort_psdl_component s. 

prod_data. 


co_valid 

prod_no_coinponent, 


) ; 

prod_op_spec , 



prod_op_impl, 


(void) co_open( 

prod_type_impl, 


“edit-graph", 

prod_t_op_impl, 


edit_graph, 

pr od_op„iinpl_l i s t_pa i r, 


co_valid 

prod_input_list, 


) ; 

prod_inputs. 



prod_output_list/ 


(void) co_open( 

prod_outputs. 


"create-sb-query", 

prod_statG_list, 


creat e_sb_query , 

prod„typG_decl, 


co_valid 

prod_graph_null. 


) ; 

prod_graph. 



prod_ver tex_list _pair, 


(void) co_open( 

prod_optional_t ype_id, 


"print-psdl", 
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print_psdl, 
co_valid 

} ; 

/* 

(void) co_open{ 

"split-psdl"/ 
split_psdl, 
co_valid 

) ; 

*/ 

if (me_user \= ME„NULL) 

{ 

Menultein{ "edit-graph", me_user) ; 

Menultem{"create-sb-query”, me_user}; 

Menultem("print-psdl ", me_user); 

/* 

Menultem{"split-psdl"/ me_user}; 

*/ 

Menultem{"save-psdl“, me_user); 

MGnuItem(“save-as", me_user); 

Menultem{"save-psdl-exit", me_usGr); 
ttifdef D_EDI'K)R 

Menultem{ "enforce-consistency_on'’/ me_user) ; 

Menultem("enforce-consistency_off"/ me_user); 

#endif 

MenuItGm{"sort-psdl-components", me„user); 

Menultem("exit", me_user); 

) 

else 

{ 

printf("init_sys3; error — cannot find CAPS-Cmds menuXn"} 

) 

/* 

user_pass = getp\vuid(gGtuid()); 
strcpy(home_dir, user_pass->pw_dir); 

*/ 

st rcpy(home_dir, get env("CAPSHOME"}); 
street(home_dir/ "/bin/tool_location.txt"); 
clean_gedatatransfile(); 

if{(tool_file = fopen(home_diry “rt")) == NULL) 

{ 

printf("Tool location file not found.Xn"); 

) 

else 

{ 

fscanf(tool_file, "%s". Buffer); 
while(stremp{Buffer, "graph_viewer:") != 0) 

fscanf(tool_file, "%s". Buffer); 

fgets(Buffer, 100, tool_file); 
system(Buffer); 

} 

fclose(tool_file); 

/* initialize the global variables */ 
prod_prot = op_search("Prot"); 
prod_psdl_nil = op_search("PsdlNil"); 
prod_psdl_pair = op_search("PsdlPair"); 
prod„op = op_search("Op"); 
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prod_data = op_search("Data"); 
prod_no_component = op_search("NoComponent"); 
prod_op_spec = op_search("OperatorSpec"); 
prod_op_impl = op_search(“Operatorlmpl"); 
prod_type_impl = op_search("Typelmpl"); 
prod_t_op_spec = op_search("TOpSpec"); 
prod_t_op_impl = op_search("TOpImpl"); 
prod„op_impl_list_pair = op_search("OpImplListPair"); 
prod_input_list = op_search("InputsListPair"); 
prod_inputs = op_search("Opinputs"); 
procl_output_list = op_search ("OutputsListPair") ; 
prod_outputs = op_search{"OpOutputs"); 
prod_state_list_none = op_sGarch("StatesListNone"); 
prod_state_list = op_search{"StatesListPair"); 

prod„type_decl = op_search("TypeDeclPair"); 
prod_graph_null = op_search("GraphNull"); 
prod_graph = op_search("Graph"); 

prod_vertex_list_pair = op_search("VertexListPair"); 
prod_optional„type_id = op_search(“OptionalTypeId"); 
prod_operator_id_pairs = op_search("OperatorIdPairs"); 
prod_alone_id_pair = op_search("AldPair"); 
prod_a_decl = op_search("ADecl"); 
prod_decl = op_search{"Declarations"); 
prod_stream = op_search("Streams"); 
prod_cc = op_search("Cc"); 

prod„constraints = op_search("ConstraintsPair"); 
prod_a_constraint = op_search{"AConstraint"); 

prototype = NULL; 

Global_Type_List = NULL; 


Global_Operators = NULLVALUE; 

*/ 

Global_Proto = NULLVALUE; 

Global„Roots = NULLVALUE; 

Global_Type_Decl = NULLVALUE; 

Global_Undef_Ops = NULLVALUE; 

Global_Undef„TypG„Ops = NULLVALUE; 

Global_Current_Op_Name = ""; 
uniquG_id_count = 1; 

Global_RGfresh_Graph_Viewer = true; 

/* default of editor is to have Enforce_Consistency on */ 
Global_Enforce_Consistency = true; 

Global_Set_SdeView = false; 
printf("init_sys3: Global_Set_SdeView = falseXn"); 


ttifdef D_EDITOR 

Global_Enforce_Consistency = false; 
#endif 
) 


char * get_prototype„name{) 

{ 

/*This procedure extracts the prototype name from the title of the 
current buffer. 


char 

*path_name, 

*component_name. 
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*last; 

/* attempt to extract a psdl identifier from file name */ 
path_name = st rdup (bu_f ile_name{br_buf (cur„browser)) ) ; 

#ifdef SDE„DEBUG_3 

printf{"path_name = %s\n", path_name); 
tendif 

component_name = strrchr(path„name, 
if (component„name != NULL) 

component_name-»- + ; /* skip the '/' character */ 
else 

component_name = path_name; 
ttifdef SDE_DEBUG_3 

printf("component_name = %s\n", component_name); 
ftendif 

last = component_name; 

if ({(*last)>64 && (*last)<91) || ((*last)>96 && (*last)<123)) 

{ 

last++; 

v/hile { ((*last)>64 && {*last)<91) I1 
((*last}>96 && (*last)<123) I I 
{(*last)>47 && (*last)<58) || 

((*last) == 95)) 
last++; 

) 

{*last) = 'NO'; 

#ifdef SDE_DEBUG_3 
/‘debugging*/ 

printf{"get_prototype_namGj component_name = %s\n“/ component_name); 
#endif 

if (strcmp(component_name/ "") 1=0) 

return(componGnt_namG); 

else 

return (''_dGfault_proto_name") ; 


/* - */ 

init_sys6() 

{ 

/* 

This procedure assumes that the "prototype" data structure is not NULL, if 
such is not the case, there is discrepancy between the attributes file and 
the input text file... execution is thus terminated. 

*/ 


extern int 

Process_File(); 

char 

* component_name, 
*get_prototype_name{); 


ATREE 

temptree, 

atree = bu_atree(br_buf {cur_brov;ser)) ; 

PROD_INSTANCE 
GGt„Id(), 

Sort_Psdl_Components (), 

Make_Proto(), 
tGmp_p; 

PROD_INSTANCE 
Change_view{); 

void 

Add_Root_Op(); 
boolean 

keep_searching; 


#ifdef SDE_DEBUG_1 
/* debugging */ 

print f {"Entering init_sys6\n'') ; 

#endif 

if{ Process_File() != TRUE) 

{ 

printf(“INPUT FILES ARE CORRUPTED. PLEASE CHECKXn"); 
exit{777); 

) 

else 

printf("INPUT FILES SUCCESSFULLY LOADED\n"); 

Change_view{SSLstring ( "SDE_VIEVJ") , SSL_true) ; 
Global_Set_SdeView = true; 
printf("init_sys6: Global_Set_SdeView = true\n“); 

component_name = strdup(get_prototype„name()); 


/* add operator template with name == component_name */ t 

if ((production(psdl_.components_from_Prot(Global_Proto)) != prod„psdl_pair) && 
(strcmp(component_name, "_default_proto_namG") != 0)) 

{ 

ttifdef SDE_DEBUG_3 
/‘debugging*/ 

printf("init_sys6: psdl_components_from_Prot(Global_Proto) == PsdlNil\n“); 
ttendif 

Add_Root _Op(component_name); 

temp_p = graph_from_OperatorImpl( 
operator_impl_from_Op( 
component_from_PsdlPair( 

psdl_components_from_Prot(Global_Proto)))); 
move__seIection(atree, one_point_selection(temp_p)); 
br_set_insert_pt_to_selection(cur_browser); 
cmd_cond_modifies(cur„browser, cur_buffer); 
br_paint_all(); 

) 

else 

{ 
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/* */ 
if {(production{son(son(Global_Proto, 1), 1)) == prod_no_component) && 

*/ 

if ((production{component_from_PsdlPair{ 
psdl_components_from_Prot(Global_Proto))} == prod_no_component) && 

(strcmp (component_name, "_default_proto_name"} != 0)) 


s t r 0_t o_s t r_ro( 

StrValuG{ 

GGt_Id( 

id_from„Op( 

component_from_PsdlPair(tGmp„p})))) 

) == 0 ) 


{ 

#ifdef SDE_DEBUG_3 
/♦debugging*/ 

printf("init_sys6: component_from_PsdlPair(psdl_components_from_Prot(Global_Proto)) 
NoComponent\n"); 

#Gndif 

Add^Root_Op(component_name); 

tGmp_p = graph_from_0peratorlmpl( 
operator_impl_from_Op{ 
coinponent_f rom_PsdlPair { 

psdl_components_from_Prot(Global_Proto)))); 
move_selection(atree/ one_point_selection(temp_p)); 

br_set_insert_pt_to_selection{cur_browser); 
cmd_condjaodifies(cur_browser, cur_buffer); 
br_paint_all(); 


) 

else 

( 

/* sort the components alphabetically, putting all Types before Ops */ 
move_selection(atree, one_point_selection(Global_Proto)); 

/* 

temp_p = son{Global_Proto, 1); 

*/ 

temp_p = psdl_components_from_Prot{Global_Proto); 
temp_p = Sort_Psdl_Components(temp_p); 
temptree = tree_to_atrGG(Make_Proto(tGmp_p)); 
atree_is_not_maintained{temptree); 
if (context(temptree) != context(atree)) 
insert_coersion(atree, temptree); 
else 

swap_sGlections(temptree, atree); 
establish_resting_place(atree); 
rm_atree(temptree); 

br_set_insert_pt_to_selection(cur_browser); 
cmd_cond_modifies(cur_browser, cur_buffer); 
br_paint_all(); 


{ 

keep_searching = false; 

} 

else 


{ 

ftifdef SDE_DEBUG_3 

print f (“init_sys6 : target component name = %s\n'’, 
strO_to_str_ro( 

StrValue( 

GGt_Id( 

id_from_Op( 

component_from_PsdlPair{temp_p)))))); 


ttendif 


) 


temp_p = psdl_components_from_PsdlPair(temp_p); 


if (!keep_searching) 

{ 


temp_p = component_from_PsdlPair(temp_p); 
if (production(tGmp_p) == prod_op) 

{ 


) 


if (IntValue{Get_Impl_Form{ 

operator_impl_from_Op(temp_p))) > 0) 
temp_p = graph_from_0peratorlmpl( 

operator_impl_from_0p(temp_p)); 


move_selection(atree, one_point_selection(temp_p)); 

br_set_insert_pt_to_select ion(cur_browser); 
cmd_cond_modifies(cur_browser, cur_buffer); 
br_paint_all(); 


/* call Refresh„Graph_Viewer to display the graph */ 
/* (MTS) 1/12/95 */ 
Refresh_Graph_Viewer(); 


if (strcmp(component_name, “_default_proto_name") != 0) 

{ 


/* position cursor at component with name == component_name */ 

/* 

temp_p = son{Global_Proto, 1); 

*/ 

temp_p = psdl_components_from„Prot(Global_Proto); 
keep_searching = true; 

while {(production(temp_p) == prod_psdl_pair) && keep_searching) 

{ 

if (Strcmp( 

compon en t _namG, 

/* 

StrValue(son(son(son(tGmp_p, 1), 1), 

1 ))) 


} 

else 

{ 

temp_p = component_from_PsdlPair( 

psdl_components_from_Prot(Global_Proto)); 

move_selection(atree, one_point_selection{temp_p)); 
br__set_insert_pt_to_select ion (cur_browser) ; 
cmd_cond_modifies(cur_browser, cur_buffer); 
br_paint_all(); 

) 


} 

/* change the view from DEFAULT to SDE_VIEl'7 */ 
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/* 

Change_view(SSLstring("SDE„VIEW"), SSL_ealse); 

Global_Set_SdeView = true; 
printf {*'init_sys 6 : Global_Set_SdeView = true") ; 

*/ 

} 

/* - */ 

int save_psdl() 

{ 

PROD_INSTANCE 
Empty_Graph{), 

P/ 

temp_p/ 

Save_as() ; 


if (BoolValue (Empty_Graph {temp_p) )) 

{ 

/* need to replace empty operator impl by OpImplNull 
and reset cursor position to current point */ 

Free_Linked_List(current_pos_trace}; 
current_pos_trace = NULL; 

} 

while (!at_top(temp_p)) 

{ 

temp„head = (LINKED_LIST) malloc(sizeof(LINKED_LIST_NODE ))7 
tGmp_head->item_number = son_numbGr(temp^p); 
temp_head->next = current_pos_trace; 
current_pos_trace = temp_hGad; 


charbuffer[ 1001 ; 
intresult = 0 ; 


t emp„p = father{t emp„p); 


void 

Remove_Empty_Graph (), 
save_graphic_file(), 

House_Cleaning{); 

LINKED_LIST 

temp_head^ 

current_pos_trace = NULL; 

void 

FrGe_Linked_List () ; 

ATREE 

atree = bu_atree(br„buf{cur_browser)); 
char 

* componen t_name, 

* get_prototype_name(); 


/* clean up the prototype before saving it */ 

House_Cleaning(SE_selection(bu_atree(br_buf(cur_browser))}) ; 


/* remember the cursor position */ 
p = selection_apex(SE_selection(bu_atree(br_buf(cur_browser) )) ) ; 

temp_p = p; 

current_pos_trace = NULL; 

while{!at_top(temp_p) && (production(temp_p) !- prod_op_impl)) 

( 

temp_head = (LINKED_LIST) malloc(sizeof(LlNKED_LIST_NODE)}; 
temp_head->item_number = son_number(temp_p); 
temp_head->next = current_pos_trace; 
current_pos_trace = temp_head; 

temp_p = father(temp_p); 

} 

if (production(temp_p) == prod_op_impl) 

{ 


Remove_Empty_Graph(); 

/* save graphic information */ 
save_graphic_filG(); 

/* get the prototype name */ 

component_name = strdup(get_prototypG_name()); 

/* create the output file name */ 

sprintf (buffer, "%s%s'', component_name, ”.psdl"); 

if (production(psdl_components_from_Prot (Global_Proto)) == prod_psdl_nil) 

{ 

writG_error_string("empty prototype, nothing to be saved"); 

) 

else 

{ 

if (IntValue(Save_as( 

SSLstring("Text"), 

SSLstring(buffer), 

SSLstring("BASEVIEW") 

SSLstring ("OUTPUT_VIB*/") 

) 

) == 1 ) 

{ 

sprintf(buffer, "%s%s%s", “can't write file ", component_name, ".psdl"); 

write_error_string(buffer); 
result = 1; 

) 

if (split_psdl() == 1) 

{ 

result = 1; 

} 

) 

/* move cursor back to original position */ 
temp_p = Global_Proto; 

temp_head = current_pos_t race; 
v;hile (temp_head != NULL) 
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temp_p = son(temp_p, (tGmp„head->item_nuinber)) ; 
temp_head = temp_head->next; 


) 

p = teTnp_p; 

Free_Linked_List(current_pos_trace); 

temp„p = onG_point_selection(p); 
move_selection(atree, temp_p); 
br_set_insGrt_pt_to_selection(cur_browser); 
crod__cond_jnodif ies (cur_browser, cur_buffer) ; 

br_paint_all {) ; 


return(result) ; 

) 

/*- 

int print_psdl() 

{ 

PROD_INSTANGE 
Save_as(), 
result; 

char 

buffer[100]; 
char 

* component_name, 

* get_prot otype_name{); 

/* get the prototype name */ 

component_name = strdup{get_prototype_name{)); 

sprint f (buffer, ''%s%s“, component_name, " .psdl .print file"); 


result = Save_as( 

SSLstring("Text"), 
SSLstring(buffer), 
SSLstring("BASEVIEW") 

/* 

SSLstring ("OUTPUT_VIEVJ") 

*/ 

); 


if (IntValue(result) 1= 0) 

{ 

write_error_string("can't save psdl, print failed"); 
br_paint_all(); 
return(1); 


sprintf (buffer, "%s%s%s*', "Ipr ", component „name, " .psdl. print file") ; 

if (IntValue(result) i= 0) 

{ 

v;r ite_error_st ring ("can' t save psdl, print failed"); 
br_paint_all () ; 


return(1) ; 

) 


/ 


system(buffer); 

return(IntValue(result)); 

} 

/*- 

int create_sb_query() 

{ 

PROD_INSTANCE 
Save_selection_to_file(), 

P/ 

temp_p; 

ATREE 

atree = bu„atree(br_buf(cur_browser}); 

char bufferdOO]; 

intprint_psdl_spGc(), 
result; 

LINKED_LIST 

temp_head, 

current_pos_trace = NULL; 

void 

Free_Linked_List(); 


*/ 


char 

* component _namG, 

*get_prototype_name(); 

/* remember the cursor position */ 

p = selection_apex(SE_selection(bu_atree(br_buf(cur_browser)))); 
temp_p = p; 

current_pos_trace = NULL; 


/* Note: need to delete (production(temp„p) 1= prod_data) in 
the following boolean expression if type specs are 
not allowed in sb query Shing 8/8/94 

*/ 


while 

{ 


(!at_top{tGmp_p) && (production(temp_p) != prod_op) 

&& (production(temp_p) != prod_data)) 

temp_head = (LINKED_LIST) malloc(sizeof(LINKED_LIST_NODE)); 
t emp_he a d->it em_number = son_number(t emp_p); 
temp_head*'>next = current_pos_trace; 
current_pos_trace = temp_head; 


) 


t Gmp_p = f a t her(t emp_p); 


if (at_top(temp_p)) 

{ 

v;rite_error_.string ("must select component before invoking create-sb-query") ; 
FreG_Linked_List(current_pos_trace); 
return(1); 
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) 

else 

{ 

/* move selection and cursor to select the whole component */ 
niove„selection(atree, one_point_selection(temp_p)); 
br_set_insert_pt_to_selection(cur_browser }; 
cmd_cond_modif ies (cur_brov;sGr, cur_buf fer} ; 
br_paint_all (); 

component_name = strdup(get_prototype_name{)); 

sprintf (buffer, “%s%s'', component_name, " .psdl.sbquery") ; 

result = print_psdl_spec(buffer); 

/* move cursor back to original position */ 
temp„head = current_pos_trace; 
while (temp_head != NULL) 

{ 

temp_p = son{temp_p, (temp„head->item_number)); 
temp_head = temp_head->next; 

) 

p = tGmp_p; 

Free_Linked_List(current_pos_t race); 

temp_p = one_point_sGlGction(p); 
move_selec tion(a t ree, temp_p); 
br_set_insert_pt_to_sGlection(cur_browser); 
cmd_cond_modifies{cur_browser, cur_buffer); 
br_paint_all(); 

return(result); 

) 


/*__ - */ 

int split„psdl() 

( 

PROD_INSTANCE 
Empty_Graph(), 

P/ 

temp_p; 

ATREE 

atree = bu_atree(br_buf(cur_browser)); 
char 

temp_buf[1003/ 
bufferClOO), 
error_buf[100]; 

LINKED_LIST 

temp_head, 

current_pos_trace = NULL; 

void 

Free_Linked_List(); 

int 

result = 0; 


char 

*component_namG, 
*gGt_prototype_name(); 


component_name = strdup (get_prototype_name ()) ; 

/* remember the cursor position */ 

p = s el ec t i on_apex (SE„s elect ion (bu_a tree (br_buf (cur_brov/ser)))) ; 
temp_p = p; 

current_pos_trace = NULL; 

while(Jat_top(temp_p) && (production(temp_p) != prod_op_impl) ) 

{ 

temp_head = (LINKED_LIST) malloc(sizeof(LINKED_LIST_NODE)); 
t emp_he ad - > i t em_numbe r = s on_numb er (t emp_p} ; 
temp_head->next = currGnt_pos_trace; 
current_pos_trace = temp_head; 

temp_p = father(temp_p); 

) 

if (production(temp_p) == prod_op_impl) 

{ 

if (BoolValue(Empty_Graph(temp_p))) 

{ 

/* need to replace empty operator impl by OpImplNull 
and reset cursor position to current point */ 

Free_Linked_List(current_pos_trace) ; 
current_pos_trace = NULL; 

) 

while (!at_top(temp_p)) 

{ 

temp_head = (LINKED_LIST) malloc(sizeof(LINKED_LIST_NODE)); 
temp_head->item_number = son_numbGr(temp_p); 
tGmp_head->next = current_pos_trace; 
current_pos_trace = temp_head; 

temp_p = father(temp_p); 

) 

) 


temp_p = psdl_components_from_Prot(Global_Proto); 

while (production(temp_p) == prod_psdl_pair) 

{ 

p = component_from_PsdlPair(temp_p); 

if ( (production(p) == prod_op) || (production(p) == prod_data)) 

( 

/* move selection and cursor to select the whole component */ 
move_selection(atree, one_point_selection(p)); 
br_set_insert_pt_to__selection (cur_browser) ; 
cmd_cond^modifies(cur_browser, cur_buffGr); 
br_paint_all() ; 

if (strcmp(get_prototype_name(), 
str0_to_str_ro( 
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St rvalue( 

Get_Id( 

id_from_Op_or_Data(p))))) == 0) 

{ 

sprintf(temp_buf, "%s", component_name); 

) 

else 


( 


} 


sprintf (temp_buf, ''%s%s%s", component_naine, 
St r 0_t o_st r_ro { 

Strvalue{ 

Get_Id( 

id_from_Op_or_Data(p))))); 


sprintf(buffer, "%s%s“, temp_buf/ ".spec.psdl"); 


if {print_psdl_spec(buffer) != 0) 

( 

result = 1; 

sprint f {error_buf/ "%s%s*', “can't write file ", buffer); 
write_error_string(error_buf); 


sprint f (buffer, "%s%s'', temp„buf, imp.psdl") ; 


if (print_psdl_impl(buffer) != 0) 

{ 

result = 1; 

sprintf(error_buf, "%s%s", "can't write file ", buffer); 
write_error_string(error_buf); 

} 

} 

t emp_p = ps d1_c omponent s_ f rom_Psd1Pair(t emp_p); 

} 


/* move cursor bac)c to original position */ 
temp_p = Global_Proto; 
temp_head = current_pos_trace; 
vjhile (temp_head != NULL) 

{ 

t emp_p = s on(t emp_p, (t emp_h ead->it em_number)); 
temp_head = temp_head->next; 


) 

p = temp_p; 

Free_Linked_List(current_pos_t race); 

temp_p = one_point_selection(p); 
move„selection(atree, temp_p); 
br_set_insert_pt„to_selection(cur_browser); 
cmd_cond_modifies(cur_browser, cur_buffer); 

br_paint_all(); 

return(result); 


) 


/* 


int print_psdl_spec(fn) 
char* fn; 

{ 


PROD_INSTANCE 
result, 

Save_selection_to_file() ; 

result = Save_selection_to_file( 

SSLstring("Text“), 

SSLstring(fn), 

SSLstring(“SPEC_ONLY_VIEW") 

) ; 

return(IntValue(result)); 

) 

/* - */ 

int print_psdl_impl(fn) 
char* fn; 

{ 

PROD_INSTANCE 
result, 

Save_selection_to_file(); 

result = Save_selection_to_file( 

SSLstring("Text"), 

SSLstring(fn), 

SSLstring ( "IMPL_ONLY_VIEVJ") 

) ; 

return(IntValue(result)); 


} 

/* - */ 

int save_psdl_exit() 

{ 

if (save_psdl() == 0) 
finish(strdup("")); 
return(0); 

} 

/* - */ 


void enforce_consistency_on() 

{ 

extern boolean Global_Enforce_Consistency; 
ttifdef SDE_DEBUG_1 

printf("Entering enforce_consistency_on\n"); 

#endif 

Global_Enforce_Consistency = true; 

#ifdef SDE_DEBUG_1 

printf("Leaving enforcG_consistency_on\n"); 

#endif 

) 

/* - */ 

void enforce_consistency_off() 

{ 

extern boolean Global_Enforce_Consistency; 
ttifdef SDE_DEBUG_1 

printf("Entering enforce_consistency_off\n"); 

#endif 

/ Global_Enforce_Consistency = false; 
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ttifdef SDE_DEBUG_1 

printf{"Leaving enforce_consistency_off\n"); 
ttendif 


/*-V 

static clean_buffer_no_reclaim( bu ) 

BUFFER 

bu; 

{ 

ATREE atree; 

ATREE old_atree; 

PROD_INSTANCE test_subtree{); 

PROD_INSTANCE temp; 

SELECTION s; 

int i; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering Clean_buffer_no_reclaim\n"); 
ftendif 

/* test buffer for completing term */ 
if {is_completing_term(bu_atree(bu)->root)) return; 

/* Put completing production in bu and rm_atree that was there */ 
top{bu_atree(bu)); 

/* 

atree = completing_atree(bu_mode(bu)); 
prepareBuf ferToClear(bu); 
prepareToSwap(bu_atree(bu)); 
bu_set_atree(bu^ atree); 

restore_tree_a fter_selectionjnodification(atree); 

*/ 

/* 

atree = mk_atree(tree_to_abody (test_subtree{)) ) ; 

*/ 

old_atree = bu„atree(bu); 

atree = mk_atree{tree_to_abody_reuse{old_atree->root)); 
prepareToSwap(old_atree); 
bu_set_atree(bu^ atree); 

restore_tree_after_selection_modification(atree); 

temp = selection_apex(SE_selection(atree)); 

temp = one_step_forward(temp); 

for (i=l;i<5;i++) 

{ 

do { 

temp = one_step_forward_v/ithout_descent (temp) ; 

} while ( (is_a_list_nil(temp) II is_an_opt„empty(temp) il 

InTextBuffer(at_text_buffer_table (atree) , cur_view, temp) ) 

&& !at_top(temp) 

); 

) 


if (at_top(temp)) temp = selection_apex(SE_selection(atree)); 
remov€_extra_placeholders(atree, &temp); 
s = one_point_selection(temp); 
move_selection(atree, s); 

br_set_insert_pt_to_selection(cur_browser); 
cmd_cond_modifies (cur_brov;ser, cur_buffer) ; 

br_paint_al1(); 

/* 

rm_atreG(old_atree); 

*/ 


/* - */ 

PROCEDURE prepareBu f ferToClear(bu f) 

BUFFER buf; 

{ 

extern BROV/SER 

br_list_head; 

BROV/SER 

b; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering prepareBufferToClear\n"); 
tendif 

for (b = br_list_head; b 1= BR_NULL; b = br_next(b)) { 
if ( br_buf(b) == buf ) { 

prepareToClear(b); 

} 

) 

return(TRUE); 

} 

/* - */ 

void Link_Stream(p, h) 

ST_PTR p; 

HeadPtr h; 

{ 

ttifdef GRAPHICS_DEBUG 
/* debugging */ 

print f ("Entering Link_Stream\n'‘) ; 
ttendif 


p->next = h->stream_list; 
h->stream_list = p; 

} 

/* - */ 


void Link_Operator(p, h) 

OPNodePTR p; 

HeadPtr h; 

{ 

/* This procedure takes as input tv;o pointers: "p" and "h". "p" points to a 

vertex head node which is about to be inserted in the vertex list pointed 
to by "h->operator_list". 

*/ 

ttifdef GRAPHICS_DEBUG 
/* debugging */ 

printf("Entering Link„Operator\n"); 
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#endif 

p->next = h->operator_list; 
h->operator_list = p; 

} 

/* - 

#ifdef CANCEL_TEMP_DELETE 
mark_killed_operators() 

{ 

/* this traverses the "deleted" buffer looking for operators that be there. 

For each operator found in the buffer, the "prototype" list is searched 
for based on the pointer to that operator. The "marked_for_delete" field 
of this operator is then turned to TRUE. 

*/ 

ATREE 

the_tree; 

PROD_INSTANCE 

root_of_tree, 
component, 

P; 

PRODUCTION 

psdl_pair, 
psdl_nil, 
op; 

int 

key; 

HeadPtr 

h, 

Mark_Operator(); 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("operators external computer entered\n"}; 
printf ("Entering mark_killed__operators\n") ; 
ttendif 


/* get access to the "deleted" buffer's abstract tree */ 
the_tree = bu_atree( deleted ); 

#ifdef SDE_DEBUG_2 

printf{"got deleted tree\n"}; 
ttendif 

psdl_pair = op_search{"PsdlPair"); 
psdl_nil = op_search("PsdlNil"); 
op = op_search("Op"); 


/* get access to the top_node*/ 
p = the_tree“>root; 

#ifdef SDE_DEBUG_2 

printf("got root node\n"); 
ttendif 

if (p == NULLVALUE) return; 
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h = Op_NumbGr_Is_In_List(key); 
if (h != NULL) 

{ 

ttifdef SDE_DEBUG_2 

print f ("OPERATOR MARKED-->%s\n", h->naine) ; 

ttendif 

h->marked_for_delete = TRUE; 

} 

else 

{ 

printf("NO OPERATOR MARKED. NUMBER IS NULL\n"); 

) 

return(h); 

} 

/*-V 

global_proto_store_init() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_proto_store_init\n"); 
printf{"Leaving global_proto_store_init\n"); 
ttendif 
} 

/*-*/ 

PROD„INSTANCE global_proto_store_fetch() 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering global_proto„store_fetch\n"); 
printf("Leaving global_proto_store_fetch\n"); 
ttendif 
} 

/* - */ 

global_proto_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf {"Entering global_proto_store_d€lete\n'‘) ; 
printf("Leaving global_proto_store_delete\n"); 
ttendif 


/* -- */ 

global_proto_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{“Entering global_proto_store_insert\n"); 
ttendif 

Global_Proto = v; /* Global_Proto is global variable */ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"leaving global_proto_store_insert\n"); 
ttendif 


Auxiliary Functions 

) 

/* - */ 

global_root_store„init() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering giobal_root_store_init\n"); 
printf("Leaving global_root_store_init\n“); 
ttendif 
} 

/* - */ 

PROD_INSTANCE global_root_store_fetch() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering global_root_.store_fetch\n"} ; 
print f("Leaving global_root_store„fGtch\n"); 
ttendif 
) 

/* - */ 

global_root_store_delete{p, a) 

PROD„INSTANCE p; 

ATTR„NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_root_store_delete\n"); 
print f("Leaving global_root_store_delete\n"); 
ttendif 

) 

/* - */ 

global„root_store_insert (p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD„INSTANCE V; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_root„store_insert\n"}; 
ttendif 

Global_Roots = v; /* Global_Roots is global variable */ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"leaving global_root_store_insert\n"); 
tt endif 
} 

/* - */ 

#ifde f CANCEL_TEMP_DELETE 

global_operators_storG_init() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_operators„store_init\n"); 
printf{"Leaving global_operators_store_init\n"); 
ttendif 
) 

/* - */ 

PROD_INSTANCE global_operat ors_store_fetch () 
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{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_operators_store_fetch\n"); 


printf("Leaving global_types_store_delete\n"); 
ttendif 

} 


printf{"Leaving global_operators_store_fetch\n"); 
ttendif 
) 


/*- 

global_types_storG_insert(p, a, v) 

PROD_INSTANCE p; 

-*/ 

/*- 

global_operators_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

#ifdGf SDE_DEBUG_1 
/* debugging */ 

print f ("Entering global_operators_store_delete\n‘') ; 
printf("Leaving global_operators_store_deletG\n"); 
ttendif 

) 

-*/ 

ATTR_NO a; 

PROD_INSTANCE v; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_types_store_insert\n"); 
ttendif 

Global_Types = v; /* Global_1Vpes is global variable */ 

ttifdef SDE_DEBUG„1 
/* debugging */ 


/*- 

global_operators_storG„insert {p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

-V 

printf("leaving global_types_store_insert\n"); 
ttendif 
) 


PROD_INSTANCE V; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering global_operators_storG_insert\n"); 

#endif 

Global_Operators = v; /* Global_Operators is global variable */ 


/*- 

global_streams_store_init {) 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering global_streams_store_init\n"}; 
printf{"Leaving global_streams_store_init\n "); 
ttendif 
) 

/*- 

PROD_INSTANCE global_streams_store_fetch() 

{ 

ttifdef SDE_DEBUG_1 

-*/ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("leaving global_operators_storG_insert\n"); 

#endif 


-*/ 

) 


/* debugging */ 

1 

/*- 

global_types store_init() 

{ 

ttifdef SDE_DEBUG_1 

-*/ 

printf("Entering global_streams_store_fetch\n"); 
printf{"Leaving global_streams_store_fetch\n"); 
ttendif 
} 


/* debugging */ 

print f { "Entering global__types_store_init \n") ; 
printf{"Leaving global_types_store_init\n"); 

#endif 

) 

/*- 

PROD_INSTANCE global_types_store_fetch() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering global_types_store_fetch\n"); 
printf("Leaving global_types_store_fetch\n"); 


/*- 

global_streams_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR„NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f {"Entering global_streams_store_delete\n") ,• 
printf{"Leaving global_streams_store_delGte\n"}; 
tt endif 

) 

-*/ 

-*/ 


ttendif 

) 


/*- 

global_streams_storG_insert(p, a, v) 

-*/ 

/*- 

global_types_store_delete(p/ a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering global_types_store_delete\n"); 

-*/ 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

( 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering global_streams„store_insert\n"); 
ttendif 
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Global_Streams = v; /* Global_Streams is global variable */ 

tiCdef SDE_DEBUG„1 
/* debugging */ 

printf{"leaving global_streams_store_insert\n") ; 

#endif 

) 

/* - */ 

global_states_store_init () 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_states_store_init\n") ; 
printf("Leaving global_statGs_store_init\n"); 

#Gndif 

) 

/* - */ 

PROD_INSTANCE global_states_storG_fetch() 

{ 

#ifdef SDE„DEBUG_1 
/* debugging */ 

printf{"Entering global_states_store_fetch\n“); 
print f {"Leaving global_statGS_store_fGtch\n*'); 

#Gndif 

> 

/* - */ 

global_states_storG_delete (p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_statGS_store_dGlete\n"); 
printf{"Leaving global_states_store_delGte\n"); 

#endif 

} 

/* - */ 

global_states_store_insert(p, 3/ v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

( 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_states_store_insert\n"}; 

#endif 

Global_States = v; /* Global_States is global variable */ 

ttifdef SDE„DEBUG„1 
/* debugging */ 

printf("leaving global_states_store_insert\n"); 
ttendif 
} 

ttendif /* CANCEL_TEMP_DELETE */ 

/* - */ 

global_type_decl_store_init(} 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 
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printf("Entering global_typG_dGcl„store_init\n"); 
print f ("Leaving global_type_dGcl__store_init \n") ; 
ttendif 
} 

(*. -*/ 

PROD_INSTANCE glotaal_type_decl_store_fetch{) 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_typG_decl_store_fetch\n"}; 
printf("Leaving global_type_decl_store_fetch\n"}; 
ttendif 
) 

/*-*/ 

global_type_decl„store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering global_type_decl_store_delete\n"); 
printf{"Leaving global_type„decl_store_deletG\n"); 
ttendif 

) 

/* - 

global_type_decl_store_insert(p, a^ v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANGE V; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering global_type_dGcl_store_insert\n"); 
ttendif 

Global_'IVpe_Decl = v; /* Global_Type_Decl is global variable */ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("leaving global_typG_decl_store_insert\n"); 
ttendif 
) 

/* - */ 

ttifdef GANG EL_TEM P_DE LETE 

global_edges_store_init() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_edges_store_init\n"); 
printf("Leaving global_edges_store_init\n"); 
ttendif 
) 

-*/ 

PROD_INSTANGE global_edges„store_fetch{) 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering global_edges_store_fetch\n"); 
printf{"Leaving global_edges_store_fetch\n"); 
ttendif 
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} 

/* - */ 

global_edges_store_dGlete(p, a) 

PROD„INSTANCE p; 

ATTR_NO a; 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_edges_store_delete\n“); 
print f ("Leaving global_edges_store_„deiete\n“}; 

#endif 

) 

/* - */ 

global_edges_store_insGrt(p, a, v) 

PROD_INSTANCE p; 

ATTR„NO a; 

PROD„INSTANCE V; 

{ 

Sitdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering global_edges_store_insert\n"); 

#endif 

Global_Edges = v; /* Global_Edges is global variable */ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("leaving global_Gdges_store_insert\n"} ; 
ttendif 
) 

#endif /* CANCEL_TEMP_DELETE */ 

/* - */ 

global_undef_ops_store_init() 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_undef_ops_store„init\n“); 
printf{"Leaving global_undef_ops_store_init\n“) ; 

#endif 

) 

/* - */ 

PROD_INSTANCE global„undef_ops_store_fetch{) 

{ 

ftifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_undef_ops_store_fGtch\n"); 
printf{"Leaving global_undef_ops_store_fetch\n"); 

#endif 

) 

/* - */ 

global_undef_ops_store_delete{p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering global_undef_ops_store_delete\n"); 
printf{"Leaving global_undef_ops_store_delete\n"); 

#endif 

} 


/* - */ 

global_undef_ops_store_insert{p/ a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

{ 

PROD_INSTANCE 

temp_new_p, 

IsNull0, 

FirstElement(), 

IdSetTail0 , 

Get_Id(); 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_undef_ops_store_insert\n"); 
ttendif 

Global_Undef_Ops = v; /* Global_Undef_Ops is global variable */ 
ttifdef SDE_DEBUG_1 

if {V == NULLVALUE) return; 
temp_new_p = v; 

while (S BoolValue(IsNull (temp_nev/_p} ) ) 

{ 

printf{"global_undef_ops_store_insert; id = %s\n", 

strO_to_str_ro (StrValuG(Get_Id(FirstElement (temp_nev/_p)) ) ) }; 
temp_new_p = IdSetTail(temp_new_p); 

) 

/* debugging */ 

printf{"leaving global_undef_ops_store_insert\n"); 
ttendif 
) 

/* - 

global_undef_type_ops_store_init () 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering global_undef_type_ops_store_init\n"); 
printf("Leaving global_undef_type_ops_store_init\n“); 
ttendif 
) 

/* - */ 

PROD_INSTANCE global„undef_type_ops_store_fetch() 

( 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f("Entering global_undef_type_ops_store_fetch\n"); 
printf{"Leaving global_undef_type_ops_store_fetch\n"); 
ttendif 
) 

/* - */ 

globa l_unde f_type_ops_s t ore_del et e (p, a) 

PROD_INSTANGE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering global_undef_type_ops_store_delete\n"); 
print f("Leaving global_undef_type_ops_store_delete\n"); 
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#Gndif 

) 

/* -- -*/ 

global_undef_type_ops_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

{ 

PROD_INSTANGE 
temp_new_P/ 

IsNull0, 

FirstElement()/ 

IdSetTail0, 

Get_Id(); 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf ("Entering global_undef_type_ops_store_insert \n'*) ; 
ttendif 

Global_Undef_Type_Ops = v; /* Global_Undef_'lVpe_Ops is global variable */ 

ttifdef SDE„DEBUG„1 
/* debugging */ 

printf ("leaving global_undef_type_ops_store__insert\n") ; 

#endif 

) 

/* - 

operator_icLstore_init () 

{ 

ttitdef SDE_DEBUG_1 
/* debugging */ 

print f {"Entering operator_id_store_init\n'') ; 
printf("Leaving operator_id_store_init\n"); 
liendif 
) 

/* - 

PROD_INSTANCE operator_id_store_fetch{) 

{ 

/* not used here */ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering operator_id_store_fGtch\n“); 
printf("Leaving operator_id_store_fetch\n"); 
ttendif 

) 

/*-V 

operator_id_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

/* 

char 

*name; 

HeadPtr 

h. 

Find„Header_Node„from_Op_or_TOpImpl_or_TOpSpec(), ; 

*/ 


#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering operator_id„store_delete\n"); 

#endif 

ttifdef GANG EL_TEMP_DELETE 

/* delete operators which have been marked for deletion */ 
h = prototype; 
while (h != NULL) 

{ 

if {h->marked_for_delete == TRUE) 

( 

ttifdef SDE_DEBUG_2 

printf ("REMOVING OPERATOR «%s» FROM LIST\n", h->name) ; 

ttendif 

V/ipeOutOperators (h->operator_list) ; 

WipeOutStreams (h“>stream__list) ; 

RemoveHeadNodG(h); 

) 

h = h->next; 

} 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(p) ; 

if (h == NULL) 

{ 

name = strO_to_str_ro(StrValue(Get_Id(id_from_Op(p)))); 

printf("OPERATOR_STORE_DELETE; OPERATOR -->%s NOT FOUND IN STRUGTURE\n", name); 
/* the following statment is commented out, may cause memory leak */ 

/* free(name); */ 

) 

ttendif /*GANGEL_TEMP_DELETE */ 
ttifdef SDE„DEBUG_1 

printf("Leaving operator_id_store_delete\n"); 
ttendif 
) 

/* - ^ - */ 

operator_id_store_insert(p, a, v) ’ 

PROD_INSTANGE p; 

ATTR_NO a; 

PROD_INSTANCE v; 


int 

prod_no; 

char 

*new_name; 

HeadPtr 

h, 

Make_Operator_Header(), 

Find_Header_Node_f rom_Op_or_TOpImpl_or_TOpSpec () ; 

PROD_INSTANCE 
t ; 

void 

Move_To_Structure„Front (), 

Link_To_Structure(); 


*/ 
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#ifdef SDE_DEBUG_1 
/* debugging */ 

print f (“Entering operator_id_store_insert\n'') ; 

#endif 

/* the following command is commented out for ease of debugging 1/21/94 
/* Output_Structure{); */ 

/* 

mark_killed_operators(); 

*/ 

if (V == MULLVALUE) return; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Operator_id_store_insGrt: Op Name = %s\n“, 
strO_to_str_ro(StrValue(Get_Id(id_from_Op(p))) )) ; 
ifendif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec (p) ; 
prod_no = (int)p; 

new_name = strO_to_str_ro(StrValue(Get_Id(v))); 

#ifdef SDE_DEBUG_2 
/* debugging */ 

print f (“INSERT Operator %s %d\n'', new_name, prod_no) ; 

#endif 

if (h == NULL) 

( 

/* need to make new header node */ 
h = Make_Operator_Header(new_name, NULL, NULL, 

Get_Unique_Id{), prod_no, FALSE); 

Link_To„Structure(h); 

) 

else 

{ 

/* operator already in the list, update name and prod_no */ 
if (strcmp(h->name, ''") 1= 0) 

{ 

free{h->name); 
free(h->ada_op_name); 

) 

h->name = strdup(new_name); 
h->ada_op_name = strdup(new_name); 
h->prod_no = h->prod_no; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 

Move„To_Structure_Front(h); 

) 

) 

ttifdef SDE_DEBUG_1 

printf("Leaving operator_id_store_insGrt\n"); 
ftendif 


) 

/* - 

states_ids_storG_init () 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering states_ids_store_init\n"); 

*/ printf("Leaving states_ids_store_init\n") ; 

ttendif 
) 

/* - 

PROD_INSTANCE states_ids_store_fetch{) 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering states_ids_store_fetch\n"); 
print f("Leaving states_ids_store_fetch\n"); 
ttendif 

) 

-- 

states_ids_store_delGte(p, a) 

PROD„INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering states_ids_store_delete\n") ; 
printf("Leaving states_ids_store_delete\n"); 
ttendif 

) 

-- 

statGs_ids_store_insert (p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

( 

HeadPtr 

h, 

Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec () 

void 

Move_To_Structure_Front(); 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering states„ids_store_insert\n"); 
ttendif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("States_ids_store_insert: Op Name = %s\n", 
strO_to_str_ro (Strvalue (Get_Id(id_from_Op(p) ) )) ) ; 
ttendi f 

h = Find_Header_Node_from_Op_or_TOplmpl_or_TOpSpec(p) ; 

if (h != NULL) 

{ 
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h->state_i<i_set = v; 

/* enforce most-recently-used-first rule */ 
if {prototype 1= h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure_Front(h); 


) 

else 

printf("states_ids_store_insert: operator not foundXn"); 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering inh_input_ids„store_insert\n“); 
#endif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Inh_input_ids_store_insert: Op Name = %s\n"/ 
strO_to_str_ro(Strvalue(Get_Id(id_from_Op(p))))); 
#endif 


ttifdef SDE_DEBUG_1 

printf("Leaving states_ids_storG_insert\n“) ; 
ftendif 


inh_input_ids_store_init {) 

( 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering inh_input_ids_store_init\n"); 
printf("Leaving inh_input_ids_store_init\n") ; 
ttendif 


PROD_INSTANCE inh_input_ids_store_fetch(} 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering inh_input_ids_store„fetch\n") ; 
printf("Leaving inh_input_ids_store_fetch\n“) ; 
#endif 


h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec{p) ; 

if {h != NULL) 

{ 

h->inh_input_id_set = v; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure_Front(h); 

) 


} 

else 

{ 

} 


printf("inh_input_ids_store_insert: operator not found\n") 


#ifdef SDE_DEBUG_1 

printf{"Leaving inh_input_ids_store_insert\n"); 
#endif 
) 


) 

-- 

inh_input_ids_store_dGlete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f("Entering inh_input_ids_store_delete\n") ; 
printf("Leaving inh_input_ids_store_delete\n"); 

#endif 

} 

-- 

inh_input_ids_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

{ 

HeadPtr 

h, 

Fi nd_Header_Node_f rom_0p_or_T0pImpl_or_TOpSpec {) ; 

void 

Move_To„Structure_Front(); 


inh_output_ids_store_init() 

{ 

ttifdef SDE„DEBUG_1 
/* debugging */ 

print f {"Entering inh_output_ids_store_init\n") ; 
printf("Leaving inh_output_ids_store_init\n"); 

# endif 

} 

/*- 

PROD_INSTANCE inh_output_ids_store_fetch() 

{ 

/ ttifdef SDE_DEBUG_1 

/* debugging */ 

printf("Entering inh_output_ids_store„fetch\n"); 
printf("Leaving inh_output_ids_store_fetch\n"); 
ftendif 

} 

/*- 

inh_output_ids_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 


*/ 


*/ 
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#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering inh_output_ids_store_delete\n"); 
printf("Leaving inh_output„ids_store_delete\n") ; 

#endif 

) 

/*_- 

inh_output_ids_storG_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

{ 

HeadPtr 

h, 

Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec () ; 

void 

Move_To_StructurG_Front () ; 


#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering inh_output_ids_store_insert\n"} ; 
#endif 

if {V == NULLVALUE) return; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Inh_output_ids_store_insert: Op Name = %s\n", 
strO_to_str_ro(StrValue{Get_Id{id_from_Op(p))))); 
#endif 

h = Find_HGader_NodG_f rom_Op_or_'I'DpImpl_or_TOpSpec (p) ; 


printf("Entering input_error_store_init\n“); 
printf("Leaving input„error_store_init\n"); 

#endif 

) 

/* - 

PROD_INSTANCE input_error_store_fetch() 

{ 

ftifdef SDE_DEBUG_1 
/* debugging */ 

print f("Entering input_error_store_fGtch\n"); 
print f ("Leaving input_error_store_fetch\n''} ; 
#Gndif 

} 

/* - 

input„error_store_delete{p/ a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ftifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering input_error_store_delete\n"}; 
printf{"Leaving input_Grror_store_delete\n"); 
#endif 

} 

/* - 

input_error_store„insGrt(p^ a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANGE v; 

{ 

HeadPtr 

h, 

Find_Header_NodG_froin_Op_or_TOpImpl„or_TOpSpec {) ; 


if (h != NULL) 

{ 

h->inh_output_id_set = v? 

/* enforce most-recently-used-first rule */ 
if {prototype J= h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure_Front(h); 

) 


void 

Move_To_Structure_Front(); 


ftifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering input_error_store„insert\n"}; 
ftendif 

if (v == NULLVALUE) return; 


) 

else 

{ 

} 


printf("inh_output„ids_store_insert: operator not found\n"); 


ftifdef SDE_DEBUG_1 

printf("Leaving inh_output_ids_store_insert\n"); 
ftendif 
} 

/*- 

input_error_store_init() 

{ 

ftifdef SDE_DEBUG_1 
/* debugging */ 


/ 


ftifdef SDE_DEBUG_1 
/* debugging */ 

printf("Input_error_store_insert: Op Name = %s\n", 
strO_to_str_ro(StrValue(Get_Id(id_from_Op(p))))); 
printf("Input_error_store_insert: Input_error = %s\n", 
(BoolValue(v))?"true":"false"); 
ftendif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(p); 

if (h i= NULL) 

{ 

h->input_error = BoolValue(v); 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 


*/ 


*/ 
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{ 

/* move header_node to front of list */ 

Move_To_Structure_Front(h); 

) 

) 

else 

{ 

printfinput_error_store_insert: operator not found\n"); 

) 

ttifdef SDE_DEBUG_1 

printf("Leaving input_error_store_insert\n"}; 

#endif 

) 

/* - */ 

output_error_store_init () 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering output_error_store_init\n"); 
printf("Leaving output_error„store_init\n ")7 
ttendif 
) 

/* - 

PROD_INSTANCE output_error_store_fetch() 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering output_error_store_fetch\n"); 
printf("Leaving output_error_store_fetch\n"); 

#endif 

) 

/*- -- */ 

output„error_store_delete{p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering output_error_store_delete\n"); 
printf("Leaving output_error_store„delete\n"); 
ttendif 

) 

/* - */ 

output_error_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a? 

PROD_INSTANCE v; 

{ 

HeadPtr 

h, 

Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec{}; 
void 

Move_To_Structure_Front(); 


#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering output_error_store_insert\n"); 


#endif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Output_error_store_insert: Op Name = %s\n", 
strO_to_str_ro(Strvalue (Get_Id{ id_frorTU.Op (p))) ) ) 7 
printf("Output_error_store_insert; Output_error = %s\n", 

(BoolValuG(v))?"true";“false "}7 
#endif 

h = Find_Header_Node_from_Op„or_TOpImpl_or_TOpSpec (p) 7 

if (h != NULL) 

{ 

h->output_error = BoolValue(v); 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 

MovG_To_Structure_Front(h); 

) 

) 

else 

{ 

printf("output_error_store_insert: operator not found\n“); 

) 

#ifdef SDE„DEBUG_1 

printf("Leaving output_error_store_insert\n") 7 
ttendif 
) 

/*-*/ 

inh_input_decl_store__init () 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

print f("Entering inh_input_decl_store_init\n"); 
printf("Leaving inh_input_decl_store_init\n"); 

#endif 

} 

/* - */ 

PROD_INSTANCE inh_input_decl_storG_fetch (} 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering inh_input_decl_store_fetch\n") ; 
printf("Leaving inh_input_decl_store_fetch\n"); 
ttendif 



inh_input_decl_store_delete(p, a) 


PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering inh_input_decl_store_delete\n"); 
printf("Leaving inh_input_decl_store_delete\n"); 
ttendi f 
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-- - ^ 

inh_input_decl_store_insert(p, a, v) 

PROD„INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

( 

HeadPtr 

h. 

Find_Header_Node_froin_Op_or_'IOpIinpl_or_TOpSpec {) ; 

void 

Move_To_Structure_Front () ; 


#ifdef SDE__DEBUG_1 
/* debugging */ 

printf("Entering inh_input_decl_store_insert\n"); 
#endif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Inh_input_decl_store_insert: Op Name = %s\n", 
strO_to_str_ro(StrValue{GGt_Id(id_from_Op(p})})); 

# end if 

h = Find_Header_Node_from_Op_or_TOpImpl„or_TOpSpec (p) ; 

if (h != NULL) 

{ 

h->inh_input_decl = v; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 
Move„To_Structure_Front(h); 

} 


) 

else 

{ 

) 


printf("inh_input_decl_storG_insert; operator not found\n" 


#ifdef SDE_DEBUG_1 

printf("Leaving inh_input_decl_store_insert\n"); 
ttendif 
} 


/* - 

inh„output_dGcl_store_init () 

{ 

ftifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering inh_output_decl„store_init\n"); 
printf("Leaving inh_output_decl_store_init\n"); 
#endif 
} 

!* - 


*/ 


Auxiliary Functions 


PROD_INSTANCE inh_output_decl_store_fetch() 

( 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering inh_output_decl_store_fetch\n"); 
printf("Leaving inh_output_decl_store_fetch\n"); 
ttendif 

) 

/* - 

inh_output_decl_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR„NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering inh_output_decl_store_delete\n"); 
printf(“Leaving inh_output_decl_store_dGlete\n"); 
ttendif 

> 

-- 

inh_output_decl_store_insert(p^ a, v) 

PROD„INSTANCE p; 

ATTR_NO a; 

PROD_INSTANGE v; 

{ 

HeadPtr 

h, 

FincL_HeadGr_Node_from_Op_or_TOpImpl_or_TOpSpec(); 

void 

Move_To_Structure_Front(); 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering inh__output_decl_store_insert \n") ; 
ttendif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Inh_output_decl_store_insert: Op Name = %s\n", 
strO_to_str_ro(StrValue(GGt_Id(id_from_Op(p))))); 
ttendif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec (p) ; 

if (h != NULL) 

{ 

h->inh_output_decl = v; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

( 

/* move header_node to front of list */ 
Move_To_StructurG_Front(h); 

} 

} 

else 
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print £("inh_output_decl_store_insert: operator not found\n"); 


{ 

) 

#ifdef SDE_DEBUG_1 

printf{"Leaving inh_output_decl_store_insert\n"); 
ftendif 
) 

/*- 

met_error_store_init () 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering met_error_store_init\n"); 
printf{"Leaving met_error_store„init\n"); 
ttendif 
) 

/*- 

PROD_INSTANCE met_error_store_fetch() 

•{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering met_error_store_fetch\n"); 
printf{"Leaving met_error_store_£etch\n"); 
ttendif 

) 

/*- 

met_error_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG„1 
/* debugging */ 

printf ("Entering inet_error_store__dGlete\n" ) ; 
printf ("Leaving met_error_store_delete\n") ; 
#endif 

} 

/*- 

inet_error_store_insGrt (p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

{ 

HeadPtr 

h, 

Finci_Head€r_Node_f rom_Op_or_TOpImpl_or_'K)pSpec () 

void 

Move_To_Structure_Front(); 


*/ 


*/ 


*/ 


#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering met_error_store_insert\n"); 
#endif 

if (v == NULLVALUE) return; 


#ifdGf SDE_DEBUG_1 


Auxiliary Functions 


/* debugging */ 

printf("Met_error_ 2 tore_insert; Op Name = %s\n", 

strO_to_str_ro(Strvalue(Get_Id(id_from_Op(p))))); 
printf("Met„error_store_insert; Met_error = %s\n'S (BoolValuG(v))?"true" 
#endif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(p}; 

if (h != NULL) 

{ 

h->met_error = BoolValue(v)? 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 

Move_To_Structure_Front(h); 


else 

{ 

printf("met_error_store_insertI operator not found\n"); 


#ifdef SDE_DEBUG_1 

printf("Leaving met_error_store_insert\n"); 
# endif 


inh_met_store_init{} 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering inh„mGt_store_init\n" 
printf("Leaving inh_met_store_init\n“) 
#endif 
) 

/*- 

PROD_INSTANCE inh_met_store_fetch() 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering inh_met_store_fetch\n 
printf("Leaving inh_met_store_fetch\n" 
ttendif 


inh_met_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering inh_met_store_dGlete\n") 
printf("Leaving inh_met_store_delete\n"); 
#endif 


inh_mGt_storG_insert(P/ a, v) 
PROD_INSTANCE p; 
ATTR_NO a; 
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PROD„INSTANCE v; 

HeadPtr 

h, 

Find_Header_Node__from_Op_or_TOpImpl_or„TOpSpec{); 
void 

Move_To_S t ruc t u re_F ron t(); 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering inh_met_store_insert\n"}; 

#endif 

if (v == NULLVALUE) return; 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(p); 

if (h != NULL) 

( 

h->inh_met = v; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 

Move_To_S t ruc t u r e_Fr on t(h); 

) 

) 

else 

{ 

printf("inh_met_store_insert: operator not found\n"); 

} 

Sifdef SDE_DEBUG_1 

printf ("Leaving inh_met_store_insert \n‘') ; 

#endif 

} 

/* - */ 

impl_store_init() 

( 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering impl_store_init\n"); 
print f("Leaving impl_store_init\n"}; 

#endif 

) 

/* - */ 

PROD_INSTANCE impl_store_fetch{) 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering impl_store_fetch\n"); 
printf("Leaving impl_store_fetch\n"); 

Sendif 


/* - */ 

impl_store_delete(P/ a) 

PROD_INSTANCE p; 

ATTR_NO a; 


Auxiliary Functions 


ttifdef SDE_DEBUG_1 
/* debugging */ 

print f("Entering impl_store_delete\n“); 
printf("Leaving impl_store_delete\n"); 
ttendi f 


/* - 

impl_store_insert(p^ a# v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

{ 

PROD_INSTANCE 
Valid_Op_Impl(); 

HeadPtr 

h, 

Find_Header_Node_from_Op„or_TOpImpl_or_TOpSpec(); 
void 

Move_To_Structure_Front(); 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering impl_store_insert\n"); 
ttendif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Impl_store_insert: Op Name = %s\n", 

StrO_to_str„ro(Strvalue(Get_Id(id_from_Op{p))})); 
ttendif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(p); 

if (h != NULL) 

( 

if {IntValue(v) < 2) 

h->is_composite = false; 
else 

h->is„composite = true; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure_Front(h); 

} 

) 

else 

{ 

printf("impl_store_insert5 operator not found\n"); 

) 

ttifdef SDE_DEBUG_1 

printf("Leaving impl_store_insert\n"); 
ttendif 
) 
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/* - */ 

vertex_ids_store_init() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering vGrtex_ids_store_init\n"); 
printf ("Leaving vertex_ids_store_init\n'‘) ; 
ttendif 
} 

/* - */ 

PROD_INSTANCE vertex_ids_store„fetch() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering v€rt€x_ids_store_fetch\n"); 
printf("Leaving vertex_ids_store_fetch\n"); 

#endif 

} 

/* - */ 

vertex_ids__store_delete(p, a) 

PROD__INSTANCE p; 

ATTR„NO a; 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering vertex_ids_store_delete\n"); 
printf("Leaving vertex_ids_store_delete\n"); 
ttendif 

) 

/* - */ 

vertex_ids_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD„INSTANCE v; 

{ 

HeadPtr 

h, 

Find_Header_Node_f rom_Op_or_TOpIinpl_or_TOpSpec () ; 

void 

Move_To_Structure_Front(); 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering vertex_ids_store_insert\n"); 
ttendif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Vertex_ids_insert: Op Name = %s\n", 

strO_to_str_ro(StrValue(Get_Id(id_from_Op(p))))); 
#endif 

h = Find_Header_NodG_froin_Op_or_TOpImpl_or_TOpSpec(p); 

if (h != MULL) 

{ 


h->vertex__id_set = v; 
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/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure_Front(h); 

) 

) 

else 

{ 

printf("vertex_ids_storG_insert; operator not found\n"}; 

) 

ttifdef SDE_DEBUG_1 

print f("Leaving vertex_ids_store_insert\n"); 
ttendif 


/*- 

edge_ids_store_init {) 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering Gdge„ids_store_init\n"); 
print f {"Leaving edge_ids__store_init \n") ; 
ttendif 
) 

/* - */ 

PROD_INSTANCE edge_ids_store_fetch() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering edge_ids_store_fetch\n"); 
print f("Leaving edge_ids_store_fetch\n“); 
ttendif 


/* - */ 

edge_ids_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG„1 
/* debugging */ 

print f{"Entering edge_ids_store_delete\n"); 
printf{"Leaving edge_ids_store_delete\n"); 
ttendif 


/* - */ 

edge_ids_store_insert (p, a, v) 

PROD_INSTANGE p; 

ATTR_NO a; 

PROD_INSTANGE v; 

{ 

HeadPtr 

h. 

Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(); 

void 

Move_To_Structure_Front(); 
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#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering edge_ids_store„insGrt\n"); 

#Gndif 

if (V == NULLVALUE) return; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Edge_ids_insert: Op Name = %s\n"/ 

strO_to_str_ro(StrValue(Get_Id(id_from_Op(p))))}; 
ttendif 

h = Find_Header_Node_f rorrL_Op_or_'IDpImpl_or_TOpSpGc (p) ; 

if (h != NULL) 

{ 

h->edge_id_set = v; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure„Front(h); 

) 

) 

else 

{ 

printf("edge_ids_store_insert: operator not found\n"); 

} 

#ifdef SDE_DEBUG_1 

printf ("Leaving edge_ids_store_insert\n*') ; 

#endif 

} 

/* - 

ttifdef CANCEL_TEMP_DELETE 


{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering streams_ids_storG_dGlete\n"); 
printf{“Leaving streams_ids_store_delete\n"); 
ttendif 

) 

/* - 

streams_ids_store_insert (p/ a, v) 

PROD_INSTANGE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

{ 

HeadPtr 

h, 

Find_HGader_Node_from_Op_or_TOpImpl_or_TOpSpec(); 


void 

Move_To_Structure_Front(); 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering strGams_ids_store_insGrt\n"}; 
ttendif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Stream_ids_insert: Op Name = %s\n", 

strO_to_str_ro(StrValue(Get_Id(ld„from_Op(p))))); 
ttendif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(p); 

*/ if (h != NULL) 

{ 

h->stream_id_set = v; 


strGams_ids_store_init{) 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering strGams_ids_store_init\n*') ; 
print f ("Leaving strGams_ids_store_init \n") ; 
ttendif 
) 

/* - */ 

PROD_INSTANCE st reams_ids_store_fetch () 

{ 

ttifdef SDE„DEBUG_1 
/* debugging */ 

printf(“Entering streams_ids_store_fetch\n"); 
printf("Leaving streams_ids_store_fetch\n"); 
ttendif 

) 

/* - */ 

streams_ids_store_delGtG (p^ a) 

PROD_INSTANCE p; 

ATTR_NO a; 


/* enforce most-recently-used-first rule */ 
if {prototype != h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure_Front(h); 

} 


) 

else 

( 

} 


printf("streams_ids_store_insert; operator not found\n"); 


ttifdef SDE_DEBUG_1 

printf{"Leaving streams_ids_store_insGrt\n"); 
ttendif 
) 


/* - 

const raints_ids_store__init {) 

( 

ttifdef SDE_DEBUG_1 


/ 


/ 
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/* debugging */ 

/* move header_node to front of list */ 

printf("Entering constraints_ids_store_init\n"); 

Move_To_Structure_Front(h); 

printf("Leaving constraints_ids_store„init\n"); 

) 

ftendif 

) 

} 

else 

/*-*/ 

{ 

PROD_INSTANCE constraints_ids_store_fetch{) 

( 

printf("constraints_ids_store_insert: operator not found\n"); 

ttifdef SDE_DEBUG „1 

; 

/* debugging */ 


printf("Entering constraints_ids_store_fetch\n“); 

ttifdef SDE_DEBUG _1 

printf("Leaving constraints_ids_store_fetch\n"); 

printf("Leaving constraints_ids_store_insert\n"); 

ttendif 

ttendi f 

) 

/*- */ 

) 

constraints_ids_store__delete (p, a) 

ttendif /*CANCEL_TEMP_DELETE*/ 

PROD_INSTANCE p; 

/*- */ 

ATTR„NO a; 

/ 

mul ti_op_error_store_init () 

#ifdef SDE_DEBUG „1 

V 

#ifdef SDE DEBUG 1 

/* debugging */ 

/* debugging */ 

printf("Entering constraints_ids_store_delete\n"); 

printf{"Entering multi_op_error_store_init\n"); 

printf(“Leaving constraints_ids_store_delGte\n"); 

printf(“Leaving multi_op_error_store_init\n"); 

#endif 

#endif 

} 

} 

/*- 

/*-*/ 

PROD_INSTANCE multi_op_error_store„fetch(} 

constraints_ids_store„insert(p/ a, v) 

{ 

PROD_INSTANCE p; 

#ifdef SDE_DEBUG _1 

ATTR_NO a; 

/* debugging */ 

PROD_INSTANCE v; 

printf{"Entering multi_op_error_store_fetch\n"); 

{ 

printf ("Leaving multi_op__error_store_fetch\n"); 

HeadPtr 

ttendi f 

Find_Header„Node_from_Op_or_TOpImpl_or_TOpSpec(); 

) 


/* - */ 1 

void 

muIti_op_error_store_delete{p, a) 

Move_To_Structure_Front () ; 

PROD_INSTANCE p; 


ATTR_NO a; 

#ifdef SDE_DEBUG _1 

{ 

#ifdef SDE_DEBUG _1 

/* debugging */ 

/* debugging */ 

printf("Entering constraints_ids„store_insert\n"); 

print f ("Entering multi_op_error_store_delete\n") ; 

ttendif 

printf("Leaving multi_op_error_store_delete\n"); 


tendif 

if (V == NULLVALUE) return; 


#ifdef SDE_DEBUG _1 

) 

/* debugging */ 

multi_op_error_store_insert(p, a, v) 

printf("Constraints_ids_insert: Op Name = %s\n". 

PROD_INSTANCE p; 

strO_to_str_ro(StrValue{Get_Id(id_from_Op(p))))); 

ATTR_NO a; 

#endif 

PROD_INSTANCE V; 

h = Find_Header„Node„from_Op_or_TOpImpl_or_TOpSpec(p); 

{ 

HeadPtr 1 

h 

if (h != NULL) 

{ 

U/ j 

Find_Header_Node_from_Op_or_TOpImpl„or_TOpSpec {) ; 

h->constraints_id_set = v; 

void 


Move_To_Structure_Front(); 

/* enforce most-recently-used-first rule */ 


if (prototype != h) 


{ 

ttifdef SDE_DEBUG _1 
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/* debugging */ 

printf("Entering multi_op_error_store_insert\n"}; 

#endif 

if {V == NULLVALUE) return; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Mult i_op_error_store„insert: Op Name = %s\n'‘, 
strO_to_str_ro(StrValue(Get_Id(id_from_Op(p)}))); 
printf{"Multi_op_error_store_insert: Multi_op_error = %s\n", 

(BoolValue(v))?"true":"false"); 
ttendif 

h = Find_Hea der_Node_f rom_Op_or_TOpImpl_or_TOpSpec{p); 

if (h != NULL) 

{ 

h->multi_op_error = BoolValue(v); 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 

MovG_To_Structure_Front(h); 

) 

) 

else 

( 

printf(“multi_op_store_insert: operator not found\n"); 

) 

iifdef SDE_DEBUG_1 

printf{"Leaving multi_op_error_store_insert\n"); 
ttendif 
) 

/*-*/ 

stream_error_store„init () 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering stream_error_store_init\n"}; 
printf("Leaving stream_error_store_init\n"); 

#endif 

) 

/* - */ 

PRODDINGTANGE st ream_error_store_fet ch() 

( 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering stream_error_store_fetch\n"); 
printf("Leaving stream_error_store_fetch\n"); 
ttendif 

) 

/*-*/ 

stream_error_storG„delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering stream_error_store_delete\n"); 
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printf("Leaving stream_error_store_dGlGte\n"); 
ttendif 

) 

/*- 

stream_error_store_insert(p, a, v) 

PROD_INSTANGE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

{ 

HeadPtr 

h, 

Find_Header_Node_from_Op_or_TDpImpl_or_TOpSpec 0 ; 
void 

Move_To_Structure_Front () ; 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering stream_error_store„insert\n ")r 
ttendif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Stream_error_store_insert: Op Name = %s\n"/ 
strO_to_str_ro(StrValue(Get_Id(id_from_Op(p))))); 
printf("Stream_error_store_insert: Stream_error = %s\n", 

(BoolValue (V) )?"true":"false"); 
ttendif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpGc(p); 

if (h != NULL) 

( 

h->stream_error = BoolValue(v); 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

( 

/* move header_node to front of list */ 

Move_To_Structure_Front(h); 

) 

} 

else 

{ 

printf("strGam_error_store„insert: operator not found\n"); 

) 

ttifdef SDE_DEBUG_1 

printf("Leaving stream_error_store_insert\n"); 
ttendif 
} 

/* - * 

constraint_error_store_init() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering constraint_error_store_init\n"); 
printf(“Leaving constraint_error_store_init\n"); 
ttendif 
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} 

/* - */ 

PROD_INSTANCE constraint_error_storG_fetch{} 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering constraint_Grror_storG„fetch\n"); 
print f (“Leaving constraint_error_storG_fetch\n‘') ; 
ttendif 

) 

/* - */ 

constraint_error_store_delete(p, a} 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering constraint_error_store„dGlGtG\n"); 
print £(“Leaving constraint_error_storG_delGtG\n"); 
ttendif 

) 

/* - */ 

constraint_Grror_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

{ 

HeadPtr 

h, 

Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(); 
void 

Hove_To_Structure_Front () ; 


#i£def SDE_DEBUG_1 
/* debugging */ 

print f {"Entering constraint_error_store_insert\n'‘) ; 

#endif 

if (V == NULLVALUE) return; 

#i£def SDE_DEBUG_1 
/* debugging */ 

printf("Constraint_Grror_storG„insert: Op Name = %s\n", 
strO_to_str_ro(Strvalue{Get_Id(id_from_Op(p))))); 
printf("Constraint_error_store_insert: Constraint_error = %s\n'\ 
(BoolValue(v))?"true":"false") ; 

#endif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(p); 

if (h != NULL) 

( 

h->constraint„error = BoolValue(v); 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure_Front(h); 


) 

} 

else 

{ 

printf("constraint„error_store_insert: operator not found\n"); 

) 

#ifdef SDE_DEBUG_1 

printf("Leaving constraint_error_store_insert\n"}; 

#endif 

) 

/* - */ 

t_multi_op_error„store_init () 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_multi_op_error_store_init\n"); 
printf("Leaving t_multi_op_error_store_init\n"); 
ttendif 
} 

/* - */ 

PROD_INSTANCE t jmul ti_op_error_store_fetch () 

{ 

ttifdef SDE_DEBUG„1 
/* debugging */ 

printf{"Entering t_multi_op_error_store_fGtch\n"); 
print f("Leaving t_multi„op_Grror_store_fetch\n"); 
ttendif 

) 

/* - */ 

t_multi_op_error_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_multi_op_error_store_delete\n"); 
printf("Leaving t_multi_op_error_store_delete\n"); 
ttendif 

) 

/* - */ 

t_multi_op_Grror_store_insert(p, a, v) 

PROD_INSTANCE p; . 

ATTR_NO a; 

PROD_INSTANCE V; 

{ 

HeadPtr 

h, 

Find_Header_Node_f rom_Op_or_TOpImpl_or_TOpSpec () ; 
void 

Move_To_Structure_Front(); 
char 

*new_name; 

int 

prod_no; 
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#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering t_multi_op_error_store_insert\n") ; 
ttendif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("T_multi_op_error_store_insert: Op Name = %s\n'\ 
strO_to_str_ro(StrValue{Get_Id(id_froin_TOpSpec (p)) )) ) ; 
printf{"T_multi_op_error_store_insert: Multi_op_error = %s\n"/ 

(BoolValue(v))?"true":"false"); 

#endif 

h = Find_Header_Node_f rom_Op_or_TOpImpl_or_TOpSpec (p) ; 

if (h J= NULL) 

{ 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 

Move_To_Structure_Front(h); 

) 

} 

else 

{ 

/* need to make new header node */ 

new_name = strO_to_str_ro(StrValue(Get_Id(id_from_TOpSpec(p)))); 
prod_no = {int)p; 

h = Make_Operator_Header(new_name, NULL, NULL, 

Get_Unique_Id(), prod_no, FALSE); 

Link_To_Structure{h); 

} 

h->multi_op_error = BoolValue(v); 

#ifdef SDE_DEBUG_1 

printf("Leaving t_multi_op_error_store_insert\n"); 

#endif 

) 

/* - */ 

t_type_id_store_init() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering t_type_id_store_init\n"); 
printf{"Leaving t_type_id_store„init\n"); 
ttendif 
) 

/* - */ 

PROD_INSTANCE t_type_id_store_fetch() 

{ 

/* not used here */ 
ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering t_type_id_store_fetch\n"); 
printf("Leaving t_type_id_store_fetch\n"); 
ttendif 


/*-*/ 

t_type_id_store_delGte{p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_type_id_store_delete\n"); 
printf("Leaving t_type_id_store_delGtG\n"); 
ttendif 
) 

/* - */ 

t_type_id_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 


int 

prod_no; 

char 

* new_typG_name; 

HeadPtr 

h, 

Make_Operator_HeadGr{), 

Find„Header_Node_from„Op_or_TOpImpl_or_TOpSpec{); 

PROD_INSTANCE 
t; 

void 

Move_To_Structure_Front(), 

Link_To_Structure{); 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_type_id_store_insert\n“); 
ttendif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"T_type_id_store_insert: Op Name = %s\n", 

strO_to_str_ro(StrValue(Get_Id{id_from_TOpImpl (p) )) )) ; 
ttendif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TGpSpec (p) ; 

if (h != NULL) 

{ 

if (strcmp(h->type_id, "") != 0) 

{ 

free(h->type_id); 

) 

h->type_id = strdup{strO_to_str_ro(StrValue(Get_Id(v)))); 
/* enforce most-recently-used-first rule */ 
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if {prototype != h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure_Front(h); 

) 

) 

else 

{ 


) 


printf("t_type_id_store_insert: operator, not found\n"), 


{ 

#ifdef SDE_DEBUG_2 

print f( "REMOVING OPERATOR «%s» FROM LIST\n”, h->name) ; 

ttendif 

VJipeOutOperators (h->operator_list) ; 
VUpeOutStreams(h->streain_list) ; 

RemoveHeadNode{h); 

) 

h = h->next; 


ttifdef SDE_DEBUG_1 

printf("Leaving t_type_id_store_insert\n") ; 

#endif 

) 

/* - */ 

t_operator_id_store_init () 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_operator_id_store_init\n"); 
printf("Leaving t_operator_id_store_init\n") ; 

#endif 

) 

/* - */ 

PROD_INSTANCE t_operator_id_store_fetch() 

{ 

/* not used here */ 
ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_operator_id_store_fetch\n"); 
printf("Leaving t_operator_id_store_fetch\n"); 
ftendif 


/* - */ 

t_operator_id_store_delete (p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

/* 

char 

*name; 

HeadPtr 

h, 

Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec{); 

*/ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_operator_id_store_delete\n"); 

#endif 

#ifdef CANCEL_TEMP_DELETE 

/* delete operators which have been marked for deletion */ 
h = prototype; 
while (h != NULL) 

{ 

if (h->marked_for_delete == TRUE) 


h = Find„Header_Node_from_Op_or_TOpImpl_or_TOpSpec(p); 

if (h == NULL) 

( 

name = strO„to_str_ro(StrValue{Get_Id(id_from_Op(p))) ) ; 

printf("OPERATOR_STORE_DELETE: OPERATOR -->%s NOT FOUND IN STRUCTURE\n", name); 
/* the following statment is commented out, may cause memory leak */ 

/* free(name); */ 

) 

#endif /*CANCEL_TEMP_DELETE */ 

#ifdef SDE_DEBUG_1 

print f ("Leaving t_operator_id_store_delete\n") ; 

Hendif 

) 

/* - */ 

t_operator_id_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 


int 

prod_no; 

char 

*new_name; 

HeadPtr 

h, 

Make_Operator_Header{), 

Find_Header_Node_f rom_Op_or_TOplmpl_or_TOpSpec (); 

PROD_INSTANCE 

t; 

void 

Move_To_Structure_Front(), 

Link_To_Structure(); 


#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_operator_id_store_insert\n“); 
ttendif 

/* the following command is commented out for ease of debugging 1/21/94 */ 
/* Output_Structure0 ; */ 

/* 

mark_killed_operators0; 
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*/ 

if (V == NULLVALUE) return; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Operator_id_store_insert: Op Name = %s\n", 

strO_to_str_ro(StrValue{Get_Id(id_from_TOpImpl (p) ) ) ) ) ; 
ttendif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec (p) ; 
prod_no = {int)p; 

new_name = strO_to„str_ro(StrValue{Get_Id(v))); 

#ifdef SDE_DEBUG_2 
/* debugging */ 

printf{"INSERT Operator %s %d\n", new_name, prod_no); 

#endif 

if (h == NULL) 

( 

/* need to make new header node */ 
h = Make_Operator_Header(new_name, NULL, NULL, 

Get„Unique_Id{), prod_no, FALSE); 

Link_To_Structure(h); 

} 

else 

( 

/* operator already in the list, update name and prod_no */ 
free{h->name); 
f ree{h->ada_op_name); 

h->name = strdup(new_name); 
h->ada_op_name = strdup(new_name) 
h->prod_no = h->prod_no; 

/* enforce most-recently-used-first rule */ 
if {prototype != h) 

{ 

/* move header_node to front of list */ 

Move_To_Structure_Front(h); 

) 

) 

#ifdef SDE_DEBUG_1 

printf("Leaving t_operator_id_store_insert\n") ; 

#Gndif 

} 

/*-*/ 

t_states_ids_store_init () 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_states_ids_store_init\n"); 
printf("Leaving t_states_ids_store_init\n"); 
ttendif 
) 

/* - */ 

PROD_INSTANCE t_states_ids_store_fetch () 

{ 

ttifdef SDE„DEBUG_1 
/* debugging */ 
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printf("Entering t_states_ids_store_fetch\n"); 
printf("Leaving t_states_ids_store_fetch\n"); 

#endif 

) 

/* --- 

t_states_ids_store_delete (p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

Sifdef SDE„DEBUG_1 
/* debugging */ 

print f ("Entering t_states_ids_store_delete\n'*) ; 
print f {"Leaving t_statGs_ids_store_delete\n'‘) ; 

#endif 

} 

/* - 

t_states_ids_store_insert (p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

{ 

HeadPtr 

h, 

Find_Header_Node_f rom_Op_or_TOpImpl_or„TOpSpec () ; 

void 

Move_To_Structure_Front {) ; 


ttifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering t„states_ids_store„insert\n'’) ; 

#endif 

if (V == NULLVALUE) return; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("T_states_ids_store_insert: Op Name = %s\n", 

strO_to_str_ro{StrValue(Get_Id(id_f rom_TOpImpl (p))) )) ; 
#endif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec (p) ; 

if (h != NULL) 

( 

h->state_id_set = v; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure_Front(h); 

) 


) 

else 

{ 

) 


print f("t_states_ids_store_insert: 


operator not found\n"); 
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ttifdef SDE_DEBUG„1 

printf("Leaving t_states_ids_store_insert\n"); 
ttendif 

) 

/* - 

t_inh_input_ids„store_init {) 

{ 

#ifdef SDE_DEBUG„1 
/* debugging */ 

printf{"Entering t_inh_input_ids_store_init\n"); 
printf("Leaving t_inh_input_ids_store_init\n"); 
ttendif 
) 

/* - 

PROD_INSTANCE t_inh_input_ids_st ore_fetch () 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_inh„input_ids_store_fetch\n"); 
printf("Leaving t_inh_input_ids„store_fetch\n"); 
ttendif 

) 

/*- 

t_inh_input_ids_store_deletG(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_inh_input_ids_store_delete\n"); 
printf("Leaving t_inh_input_ids_store_delete\n"); 
ttendif 

) 

/* - 

t_inh_input_ids_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

{ 

HeadPtr 

h, 

Find_Header_NodG„from_Op_or_TOpImpl_or_TOpSpec(); 


void 

Move_To_Structure_Front()j 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_inh_input_ids_store_insert\n"}; 
ttendif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("T_inh_input„ids_store_insert; Op Name = %s\n", 
strO_to_str_ro(StrValue(Get_Id(id_from_TOpImpl(p))}}} 
ttendif 


h = Find_HeadGr_Node_f rom_Op_or_TOpImpl_or_TOpSpec (p) ; 


if (h U NULL) 

( 

h->inh_input_id_set = v; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

( 

/* move header_node to front of list */ 
Move_To_Structure_Front(h); 

} 


*/ 


*/ 


*/ 


) 

else 

{ 

} 


printf("t__inh_input_ids_store_insert: operator not found\n"} 


ttifdef SDE_DEBUG_1 

print f (“Leaving t_inh_input_ids_store_insert\n") ; 
ttendif 
} 

/*- 

t_inh_output_ids_store__init () 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering t_inh_output_ids_store_init\n") ; 
print f ("Leaving t_inh_output_ids_storG„init \n") ; 
ttendif 
) 

/* - 

PROD_INSTANCE t_inh_output_ids_store_fetch () 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f {"Entering t_inh_output_ids_store_fetch\n") ; 
printf{“Leaving t„inh_output_ids„store_fetch\n“); 
ttendif 


} 

/* - 

t_inh_output_ids_store„delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering t_inh_output_ids_store_delete\n") ; 
print f ("Leaving t_inh_output_ids_storG_delete\n'*} ? 
ttendif 


) 

/* - 

t_inh„output_ids_store_insert (p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

{ 

HeadPtr 

h, 

Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec {) ; 


*/ 


*/ 


*/ 
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void 

Move_To_Structure_Front(); 


#ifdef SDE_DEBUG_1 
/* debugging */ 

print f(“Entering t_inh_output_ids_store_insert \n") ; 
ttendif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f {'‘T_inh_output_ids„store_insert: Op Name = %s\n", 
strO_to_str_ro{StrValue{Get_Id{id_from_TOpImpl (p)) })}; 
ttendif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(p); 

if (h != NULL} 

{ 

h->inh_output_id_set = v; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure_Front(h); 


ATTR_NO a; 

( 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering t_inh_met_store_delete\n"); 
printf("Leaving t_inh_met_store_delete\n"); 
ttendif 


t_inh_met_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

{ 

HeadPtr 

h, 

Find_Header_Node_f rom_Op_or_TOpImpl_or_TOpSpec () ; 


void 

Move„To_Structure_Front(); 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering t_inh_met_store_insert\n") ; 
ttendif 


if (V == NULLVALUE) return; 


printf("t_inh_output_ids_store_insert: operator not found\n"); 


ttifdef SDE_DEBUG_1 

printf("Leaving t_inh_output_ids_store_insert\n"); 
ttendif 
) 

/* - 

t_inh_met_store_init () 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_inh_met_store_init\n"); 
printf("Leaving t_inh_met_store_init\n"); 
ttendif 
} 

/*- 

PROD_INSTANCE t_inh_met_storG_fetch() 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering t_inh_met_store_fetch\n"); 
printf("Leaving t_inh_met_storG„fetch\n”); 
ttendif 


t__inh_met_store_delete(p, a) 
PROD_INSTANCE p; 


ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("T_inh_met_storG_insert: Op Name = %s\n", 

strO_to_str_ro (St rvalue (Get_Id( id_from_TOpImpl (p) ) ) ) ) ; 
ttendif 

h = Find_Header_Node_from„Op_or_TOpImpl_or_TOpSpec (p) ; 

if (h != NULL) 

( 

h->inh_met = v; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 
Move_To_Structure_Front (h) ; 


printf("t_inh_met_store_insert: operator not found\n"); 


ttifdef SDE_DEBUG_1 

printf("Leaving t_inh_met_store_insert\n"); 
ttendif 
} 

/* - 

t_impl_store_init() 

{ 

ttifdef SDE_DEBUG_1 
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/* debugging */ 

printf ("Entering t_impl_store_init \n‘') ; 
print f (" Leaving t_impl„store_init\n‘') ; 

Hendif 

) 

/*-*/ 

PROD_INSTANCE t_impl_store_fetch() 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{“Entering t_impl_store_fetch\n"); 
printf {"Leaving t_impl_store_fetch\n'*) ; 

#endif 


/* - 

t„impl„store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

( 

ttiEdef SDE_DEBUG_1 
/* debugging */ 

print E ("Entering t_impl_store_delete\n'') ; 
printf("Leaving t_impl„store_delete\n"); 

#endif 


-*/ 

t_impl_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

( 

PROD_INSTANCE 
Valid_Op_Impl(); 

HeadPtr 
h, 

Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpec(); 
void 

Move_To_Structure„Front () ; 


frifdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering t_iinpl_store_insert \n"} ; 

#endif 

if (V == NULLVALUE} return; 

ftifdef SDE_DEBUG_1 
/* debugging */ 

print E (“T_impl_store_insert: Op Name = %s\n''/ 

strO„to_str_ro(StrValue(Get_Id{id_from_TOpImpl(p)})})/ 
ttendif 

h = Find_Header_Node_from„Op_or_TOpImpl_or_TOpSpec(p); 

if (h != NULL) 

{ 

if (IntValue{v) < 2) 

h->is_coinposite = false; 
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else 

h->is_composite = true; 

/* enforce most-recently-used-first rule */ 
if (prototype h) 

( 

/* move header_node to front of list */ 

Move_To_Structure_Front(h); 

) 

) 

else 

{ 

printf {"t_impl_store_insert: operator not Eound\n"); 

} 

#ifdef SDE_DEBUG_1 

printf("Leaving t_impl_store_insert\n"}; 

#endif 

} 

/* - 

t_vertex_ids_store_init {} 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f (“Entering t_vertex_ids_store__init\n") ; 
printf("Leaving t_vertex_ids_store_init\n"); 

#endiE 

) 

/*- 

PROD_INSTANCE t_vertex_ids_store_fetch() 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printE{“Entering t_vertex_ids_store_fetch\n"); 
print f {"Leaving t_vertex_ids_store_fetch\n’') ; 

#endif 

) 

/* - 

t_vertex_ids_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_vertex_ids_store_delete\n"}; 
printf("Leaving t_vertex_ids_store_delete\n"); 
frendif 


/*-*/ 

t_vertex_ids_store_insert(p, a, v) 

PROD„INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

( 

HeadPtr 

h, 

Find_Header_Node_from_Op_or_TOpImpl_or__TOpSpec () ; 

void 

Move_To_Structure_Front () ; 
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#iEdef SDE_DEBUG_1 
/* debugging */ 

print f ("Entering t_vertex_ids_store_insert \ni'*) ; 

#endif 

if (V == NULLVALUE) return; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("T_vertex_ids_insert: Op Name = %s\n", 

StrO_to_str_ro(Strvalue{Get_Id(id_from_TOpImpl(p))))); 
ftendif 

h = Find_Header_Node_from_Op_or_TOpImpl„or_TOpSpec(p); 

if (h != NULL) 

{ 

h->vertex_id_set = v; 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

{ 

/* move header_node to front of list */ 

Move_To_Structure„Front(h); 

) 

) 

else 

( 

printf ("t_vertex_ids_storG_insert: operator not found\n"); 

} 

#ifdef SDE_DEBUG_1 

printf("Leaving t_vertex_ids_storG_insert\n"); 

#endif 

) 

/* - */ 

t__edge_ids_store_init () 

{ 

ftifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_Gdge_ids_store_init\n"); 
printf ("Leaving t_edge_ids_store_init\n'*) ; 

#endif 

) 

/* - */ 

PROD_INSTANCE t_edge_ids_storG_fetch() 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_edge_ids_store_fetch\n"); 
printf("Leaving t_edge_ids_store_fetch\n"); 
ttendif 


/* - */ 

t_edge_ids_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

( 

#ifdef SDE_DEBUG_1 
/* debugging */ 


Auxiliary Functions 

printf{"Entering t_edge_ids_store_deletG\n"); 
printf{"Leaving t_edge_ids_store_delete\n"); 
Sendif 


/* - */ 

t_edge_ids_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

{ 

HeadPtr 

h, 

Find_Header„Node_from_Op_or_TOpImpl_or_TOpSpec{); 

void 

Move_To_Structure_Front(); 


#ifdef SDE_DEBUG„1 
/* debugging */ 

printf{"Entering t_edge_ids_store_insert\n“}; 

#endif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("T_edge_ids_insert: Op Name = %s\n"/ 

strO_to_str_ro(StrValue(Get_Id(id_from_TOpImpl(p))))); 
ttendif 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TDpSpGc (p) ; 

if (h != NULL) 

{ 

h->edge_id_set = v; 

/* enforce most-recently-used-first rule */ 
it (prototype != h) 

{ 

/* move hGader_node to front of list */ 
Move_To_Structure_Front(h); 

) 

) 

else 

{ 

printf{"t_edgG_ids_store_insert: operator not found\n"); 

} 

#ifdef SDE_DEBUG_1 

print f("Leaving t_edge„ids„store_insert\n"); 

#endi f 


/* - */ 

t„stream_error_store_init () 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering t_stream_error_storG_init\n"); 
printf("Leaving t_stream_Grror_store_init\n"); 
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ttendif 

) 

/*-*/ 

PROD„INSTANCE t_stream_error_store„fetch() 

{ 

ttifdeC SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_stream„error_store_fetch\n"); 
printf{"Leaving t_stream_error„store_fetch\n"); 

#endif 

} 

/* - */ 

t_stream_error_store_delete{p, a) 

PROD_INSTANCE p; 

ATTR_NO a/ 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_stream_error_store_delete\n"); 
print f (" Leaving t_streain_error_store_delGte\n") ; 

#endif 

) 

/*-*/ 

t_stream_error_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

( 

HeadPtr 

h, 

Find_Header_Node_from_Op_or_TOpImpl_or_'rc)pSpec{); 
void 

Move_To_Structure_Front(); 


#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_stream_error_store_insert\n"); 

#endif 

if (V == NULLVALUE) return; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("T_stream_error_store_insert; Op Name = %s\n", 
strO_to_str_ro(StrValue(Get_Id(id_from_TOpImpl(p))))); 
printf(“T_stream_error_store_insert: Stream„error = %s\n", 
{BoolValue(v))?"true";"false") ; 
ttendif 

h = Find_Header_NodG_from_Op_or_TOpImpl_or_TOpSpGc(p); 

if (h != NULL) 

{ 

h->stream_error = BoolValue(v); 

/* enforce most-recently-used-first rule */ 
if {prototype != h) 

{ 

/* move header_node to front of list */ 


Move„To_Structure_Front(h); 

) 

} 

else 

{ 

printf("t_stream_error_store_insert: operator not found\n"); 

) 

#ifdef SDE_DEBUG_1 

printf("Leaving t_stream_error_store_insert\n"); 

#endif 

} 

/* - */ 

t_constraint_error_store_init{) 

( 

ftifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_constraint_error_store_init\n"); 
printf{"Leaving t_constraint_error_store_init\n"); 

#endif 

) 

/* - */ 

PROD_INSTANCE t_const raint_error__st ore_fetch () 

( 

#if de f.SDE_DEBUG_1 
/* debugging */ 

printf{"Entering t_constraint_error_store_fetch\n"); 
printf("Leaving t_constraint_error_store_fetch\n"}; 
ttendif 

} 

/* -- */ 

t_constraint_error_store_delete(p/ a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ftifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_constraint_error_store_delete\n"); 
printf("Leaving t_constraint_error_store_delete\n"); 

#endif 

} 

/* - */ 

t_constraint_error_store_insert(p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 

( 

HeadPtr 

h, 

Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpGc(); 
void 

Move_To_StructurG_Front(); 


#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_constraint_error_store_insert\n"}; 
#endif 

if (v == NULLVALUE) return; 
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ttifdeC SDE„DEBUG_1 
/* debugging */ 

printf("T_constraint_error„store_insert: Op Name = %s\n", 
strO_to_str„ro(StrValue(Get_Id(id„from_TOpImpl(p))))); 
printf ("T_constraint„error_storG_insert j Constraint_Grror = %s\n'*/ 

(BoolValuG(v))?“true":"false"); 

#endif 

/* p is a t_op„impl production */ 

h = Find_Header_Node_from_Op_or_TOpImpl_or_TOpSpGC(p); 

if (h != NULL) 

{ 

h->constraint_error = BoolValue(v); 

/* enforce most-recently-used-first rule */ 
if (prototype != h) 

( 

/* move headGr_node to front of list */ 

Movg_To_S t rue t ure„Fron t(h); 

} 

) 

else 

{ 

printf{"t_constraint_error_store_insert: operator not foundXn"); 

) 

#ifdef SDE_DEBUG_1 

printf ( "Leaving t_constraint„error_store_insert \n'') ; 

#endif 

) 

/* - */ 

t_undef ined_op_inipl_storG_init () 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering t_undefined_op_impl_store_init\n"); 
printf (“Leaving t_undGfined_op_impl„store__init \n") ; 

^endif 

) 

/* -- */ 

PROD_INSTANCE t_undefined_op_impl_store_fetch{) 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_undefined_op_impl_store_fetch\n"); 
printf("Leaving t_undefined_op_impl_store_fetch\n"); 
ttendif 
) 

/* - */ 

t_undefined_op_impl_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_undefined_op_impl_store„delete\n"); 
printf{"Leaving t_undefined_op_impl_store_delete\n"); 

Sendif 


/*- 


t_undefined_op_impl_store_insert(p; a, v) 
PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE V; 

{ 

PROD_INSTANCE 
Get_Id(); 

TYPE_LIST 

tl, 

Find_Type_Node„from_Data(), 
Make_Type_Node(); 


#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering t_undefined_op_impl_store_insGrt\n"); 
itendif 

if {V == NULLVALUE) return; 


11 = Find_Type_Node_f rom_Da t a{p); 
if {tl == NULL) 

tl = Make_'IVpe_Node{strO_to_str_ro{StrValue(Get_Id(id_from_Data(p) ) ) )) ; 

tl->undGfined_op_impl = v; 

iifdef SDE_DEBUG_1 
/* debugging */ 

printf{"leaving t_undGfined_op_impl_store_insert\n"); 
ttendif 
) 

/* - 

t_obsolete_op_impl_storG_init () 

{ 

#ifdef SDE_DEBUG_1 
/* debugging */ 

print f("Entering t_obsolete_op_impl_store_init\n"); 
printf("Leaving t_obsolete_op_impl_store_init\n"); 
ttendif 
) 

/*-*/ 

PROD_INSTANCE t_obsolete_op_impl_store_fetch{) 

{ 

ttifdef SDE_DEBUG_1 
/* debugging */ 

printf{"Entering t_obsolete_op_impl_store_fGtch\n"); 
printf("Leaving t_obsolete_op_impl_store_fetch\n"); 
tt endif 
} 

/*-*/ 

t_obsolete_op_impl_store_delete(p, a) 

PROD_INSTANCE p; 

ATTR_NO a; 

{ 

ttifdef SDE_DEBUG„1 
/* debugging */ 

printf{"Entering t_obsolete_op_impl_store_delete\n"); 
printf{"Leaving t_obsolete__op_impl_store_dGlete\n"); 
ttendif 
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/* - */ 

t„obsolete_op_impl_store_insert (p, a, v) 

PROD_INSTANCE p; 

ATTR_NO a; 

PROD_INSTANCE v; 


PROD_INSTANCE 
Get„Id(); 

TYPE_LIST 

tl, 

Find_'IVpe_Node_f rom_Data {), 
Make_iy pe_Node{); 


Sifdef SDE_DEBUG_1 
/* debugging */ 

printf ("Entering t_obsolete_op_iinpl_store_insert \n") ; 
ttendif 

if (V == NULLVALUE) return; 


tl = Find_TVpe_Node_from_Data(p) ; 
if (tl == NULL) 

tl = Make_Type_Node(strO_to_str_ro(StrValue(Get_Id{id_from_Data(p)}))); 

tl->obsolete_op„impl = v; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("leaving t_obsolete_op_impl_store_insert\n"); 

#endif 

) 

/*-*/ 

int RemoveHeadNode(pointed_at) 

HeadPtr pointed_at; 

{ 

extern HeadPtr 
prototype; 

HeadPtr 

P/ 

q; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering RemoveHeadNode\n") ; 

#endif 

q = NULL; 

p = prototype; 

while (p != pointed_at) 

{ 

q = p? 

p = p->next; 

) 

if (q == NULL) 

{ 


} 


prototype = p->next; 
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else 

{ 

q->next = p->next; 

) 

free(p); 

} 

/*- 

WipeOutSpline(s) 

SPLINE_PTR S; 

{ 

SPLINE_PTR last; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf("Entering VUpeOutSpline\n"); 
#endif 

while (s != NULL) 

{ 

last = s; 
s = s->next; 
free(last); 

} 

) 

/* - 

WipeOut St reams{p) 

ST_PTR p; 

{ 

ST_PTR last; 

STREAM q; 

#ifdef SDE_DEBUG_1 
/* debugging */ 

printf(“Entering WipeOutStream\n”}; 
#endif 

V7hile (p != NULL) 

{ 

last = p; 
q = p->st; 

VUpeOutSpline(q->arc); 
free(q); 
p = p">next; 
free(last); 

} 

#ifdef SDE_DEBUG_1 

print f ("V/ipeOutStreams\n") ; 

#endif 
} 

/* - 

WipeOutOperators(p) 

OPNodePTR p; 

{ 

OPNodePTR last; 

OPERATOR q; 

ttifdef SDE_DEBUG_1 
/* debugging */ 

print f {"Entering V7ipeOutOPerators\n") ; 
# endif 

while (p 1= NULL) 


/ 
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{ 

last = p; 
q = p->op; 
free(q); 
p = p->next; 
free(last) ; 

) 

#ifdef SDE_DEBUG_1 

print f ("V/ipeOutOperatorsXn") ; 
ftendif 
} 

/* - */ 

%) 

/* - */ 


^ *******<***★***■****************«««***«** ************************** ***★*★★*★** 
**** Thl 0 eighth (last) set o£ functions were made in support of this thesis 
**** and was named functions2.ssl 

********ii^******i* **************************************** ***************#*****y 

/* 

Application: CAPS/SDE (Syntax Directed Editor) 

System: UNIX 

Programmer: Scott Grosenheider 

LastTouched: 951205 

Purpose: Functions created in support of identifying simple 

timing and trigger constraints within a CAPS prototype 
so that simple errors can be identified and reported to 
the user while s/he is still in the editor, thereby 
reducing the time spent going back and forth from 
the scheduler to the editor. 

*/ 


BOOL exported Is_Constrained_Operator(component c) { 
with(c) ( 

NoComponent: false, 

Data(i, ts, ti): false, 

Op(i, os, oi): 
with(os) ( 

OperatorSpec(*, *, *, *, *, opt_met, *, *, *): 
with(opt_met) ( 

OpTimingInfoNone: false, 

OpTimingInfoPrompt: false, 

OpTimingInfo(met, *); true 

) 

} 

) 

); 

/* Do the constraints belong to a Constrained Operator (has a MET)? */ 
BOOL exported Belong2Constrained_Operator(a_constraint ac, 

op_id_met_set id_met_set) { 

with(ac) ( 

AConstraintNull: false, 

AConstraint(op_id, *, *, *, *, *, *, *, *) : 

Is_OpId_In_IdMetSet(op_id, id_met_set) 

) 

}; 

BOOL Is_OpId_In_IdMetSet(operator_id op_id, 

op_id_met_set id_met_set) { 

v/ith(id_met_set} ( 

OpIdMetSetNil; false. 
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OpIdMetPair(hd, tl): 
with(hd) ( 

OpIdMetNull: Is_OpId_In_IdMetSet(op_id, tl), 

OpIdMet(oid, *): 

(op_id == oid) 

? true 

: Is_OpId_In_IdMetSet(op_id, tl) 

) 

) 

}; 

/* - */ 

per Get_Period(operator_id opid, id_constraint_set cs) { 
v/ith(cs) ( 

IdConstraintSetNil: PerNull, 

IdConstraintPair(hd, tl): 
with(hd) ( 

IdConstraintNull: Get_Period(opid, tl), 

IdConstraint(oid, tc, *): 

(opid == oid) 

? with(tc) ( 

OpConstraintsNull: PerNull, 

Periodic(per, *): per. 

Sporadic(*, *): PerNull 

) 

: Get_Period(opid, tl) 

) 

) 

) ; 


BOOL exported 

Is_ProducerOp_Period_LE_ConsumerOp{edge_set es, 

id_constraint_set cs) { 

with(es) ( 

EdgeSetNil: false, 

EdgePair(hd, tl): 

with(hd) { , 

EdgeNull: Is_ProducerOp_Period_LE_ConsumerOp(tl, cs), 

Edge(*, *, p, c) : 
with(p) ( 

ProducerNul 1: Is_ProducerOp_Period_LE_ConsumerOp(tl, cs) , 

Producer(p_opid): 
with(c) ( 

ConsumerNul1: Is_ProducerOp_Period_LE_ConsumerOp(11, cs) , 

Consumer (c_opid) 

(Get_Period{p_opid, cs) == PerNull I I 
Get_Period(c_opid, cs) == PerNull ) 

? Is_.ProducerOp_Period_LE_ConsumerOp(tl, cs) 

: (Get_Period(p_opid, cs) <= Get_Period(c_opid, cs)) 

? true 

: Is_ProducerOp_Period_LE_ConsumerOp(tl, cs) 

) 

) 

) 

) 

}; 


/ 


--*/ 


BOOL Is_Sporadic(operator_id opid, id_constraint_set cs) { 
with(cs) ( 

IdConstraintSetNil: false, 

IdConstraintPair(hd, tl): 
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with(hd) { 

IdConstraintNull: 

IdConstraint(oid, tc, *} 

(oid == opid) 

? with{tc) ( 

OpCons t raint sNul1: 

Periodic(*, *); 

Sporadic(*/ *); 

) 

: Is_sporadic(opid, tl) 

} 

) 

} ; 

trigger Get^Trigger {operator_id opid, id_constraint„sGt cs) { 
V7ith(cs) ( 

IdConstraintSetNil: TriggerByNull, 

IdConstraintPair(hd, tl}: 
with(hd) ( 

IdConstraintNull: Get_Trigger(opid, tl), 

IdConstraint(oid, *, trig): 

(opid == oid) 

? trig 

: Get_Trigger(opid, tl) 

) 

) 

}; 


Is„Sporadic(opid, tl). 


false, 

false, 

true 


BOOL exported 

Is_Sporadic_ConsumerOp_WO_Trigger(edge_set es, 

id_constraint_set cs) { 

with(es) ( 

EdgeSetNil: false, 

EdgePair(hd, tl): 
with(hd) { 

EdgeNull: Is_Sporadic_ConsumerOp_WO_Trigger(t1, cs), 

Edge(*, *, *, c) : 
with(c) ( 

ConsumerNull: Is_Sporadic_ConsunierOp_WO_Trigger(tl, cs), 

Consumer(c_opid): 

(Is_Sporadic(c_opid, cs)) 

? (Get_Trigger(c_opid, cs) == TriggerByNull) 

? true 

: Is_Sporadic_ConsumerOp_WO_Trigger(tl, cs) 

: Is_Sporadic_ConsumerOp_WO_Trigger(tl, cs) 

) 

} 

) 

}; 

/* - */ 

BOOL Is_Constrained_Opid(operator_id opid, op_id_met_set ms) { 
with(ms) ( 

OpIdMetSetNil: false, 

OpIdMetPair(hd, tl) : 
with(hd) { 

OpIdMetNull: Is_Constrained_Opid(opid, tl), 

OpIdMet(oid, met): 

(opid == oid) 

? with(met) ( 

MetNull: false. 


Auxiliary Functions 

MET(*): true 

} 

: Is_ConstrainGd_Opid(opid, tl) 

) 

} 

); 

BOOL exported 

Is_Constr_ProducerOp_And_Unconst r_ConsumGrOp_V?_Trigger {edge_set es, 

op_id_met_set ms, 

id_constraint_set cs) { 

with(es) ( 

EdgeSet Nil: false, 

EdgePair(hd, tl): 
with{hd) ( 

EdgeNull: 

Is_Constr_ProducerOp_And_Unconstr_ConsumerOp„V?_Trigger (11, ms, cs), 

Edge(*, *, p, c) : 
with(p) ( 

ProducerNull: 

Is_Constr_ProducerOp_And_Unconstr_ConsumerOp_VJ_Trigger(tl, ms, cs), 
Producer(p_opid): 
v/ith(c) ( 

ConsumerNull: 

Is_Constr_ProducerOp_And_Unconstr__ConsumerOp_V/_Trigger (t 1, ms, cs) , 
Consumer{c_opid) : 

( ( Is_,Constrained_Opid(p_opid, ms) ) 

&& (! Is_Constrained_.Opid(c_opid, ms) ) 

&& ( Get_Trigger (c_opid, cs) != TriggerByNull) ) 

? true 

: Is_Constr_ProducerOp^nd_Unconstr_ConsumerOp_VJ_Trigger (t 1, ms, cs) 


/* - */ 

BOOL exported 

Is__Unconstr_ProducerOp_And^Constr_ConsumerOp„W„ByAll (edge_set es, 

op_id_met_sGt ms, 

id_constraint_set cs) { 

with(es) ( 

EdgeSetNil: false, 

EdgePair(hd, tl): 
with(hd) ( 

EdgeNull: 

Is_Unconstr_ProducerOp_And_Constr_ConsumerOp_W_ByAll (t 1, ms, cs) , 

Edge(*, *, p, c) : 
with(p) ( 

ProducerNull: 

Is_Unconstr_ProducerOp_And_Constr_ConsumerOp_VJ_ByAl 1 (11, ms, cs), 
Producer{p_opid): 
with{c) ( 

ConsumerNull: 

Is_Unconstr_ProducGrOp_And_Constr_ConsumerOp_W_ByAll (tl, ms, cs) , 
Consumer(c_opid): 

( ( ! Is_Constrained__Opid(p_opid, ms) ) 

&&( Is_Constrained_Opid(c„opid, ms) ) 

&&{ Get__Trigger(c_opid, cs) == TriggerByAll) ) 

? true 

: Is_Unconstr_ProducerOp_And_Constr_ConsumerOp_VJ_ByAll (tl, ms, cs) 
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BOOL exported 

I s_Unconst r_ProducerOp_And_Const r_ConsumerOp_W_BySomG (Gdge_set es, 

op_i d_me t _se t ms, 

id_constraint_set cs) { 

with(es) ( 

EdgeSetNil: false, 

EdgePair(hd, tl): 
with(hd) { 

EdgeNull; 

Is„Unconstr_ProducerOp_And_Constr_ConsumerOp_W„BySome(t1, ms, cs), 

Edge{*, *, p, c): 
with(p) ( 

ProducerNull: 

Is_Unconst r_ProducGrOp_And_Constr_ConsumerOp_W_BySome{11, ms, cs), 
Producer{p_opid): 
with(c) ( 

ConsumerNull: 

Is_Unconstr_ProducerOp_And_Constr_ConsumerOp_W_BySome(tl, ms, cs), 
Consumer(c_opid): 

( (!Is_Constrained_Opid{p_opid, ms) ) 

&&{ Is_Constrained_Opid(c_opid, ms) ) 

&&{ Get_Trigger(c_opid, cs) == TriggerBySome) ) 

? true 

: Is_Unconstr„ProducerOp_And_Constr_ConsumerOp_W_BySome(tl, ms, cs) 


BOOL Is_Per(optional_period o_per) 
with{o_per) { 

OptPeriodNull; false, 
OptPeriodPrompt: false. 
Opt Period(time,*): t rue 


BOOL Is_FW(optional_finish_within o_fw) 
with(o_fw) ( 

OptFinxshVIithinNull; false, 
OptFinishWithinPrompt; false, 
OptFinishWithin{time,*): true 


BOOL Is_Mrt(optional_mrt o_mrt) 
with(o_mrt) ( 

OptMrtNull: fals€ 
OptMrtPrompt: false 
OptMrt(time,*); true 
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} ; 

BOOL Is_Mcp(optional^mcp o_mcp) { 
with(o__mcp) ( 

OptMcpNull: false, 

OptMcpPrompt: false, 

OptMcp{time,*): true 

) 

}; 


/* Returns true if the constraint passed in has a time 
value for any of its four timing constraints. 

BOOL exported Partial_Constraint(a_constraint ac) { 
with(ac) ( 

AConstraintNull: false, 

AConstraint(*, *, o_per, o_fw, o_mcp, o_mrt, *, * 
( Is_Per(o_per) I1 Is_FW(o_fw) tl 
Is_Mrt{o_mrt) || Is_Mcp(o_mcp) ) 

) 

); 


*/ 


*) : 


/* Returns true if constraints are Periodic XOR Sporadic. */ 
BOOL exported Valid_T_Constraint(a„constraint ac) { 
with(ac) ( 

AConstraintNull: false, 

AConstraint{*, *, o_per, o_fw, o_mcp, o_mrt, *, *, *): 
Partial_Constraint(ac) && 

!( ( Is_Per{o_per) || Is_Fl-J (o_fw) ) 

&& 

( Is_Mrt(o_mrt) || Is_Mcp(o„mcp) ) ) 

) 

) ; 


/* Met <= FW < PER must exist for an Operator to be schedulable. */ 
BOOL exported Unschedulable_Periodic__Op(a_constraint ac, 

op_id_met_set mGt_set) { 

with(ac) { 

AConstraintNull: false, 

AConstraint(op_id, *, o_per, o_fw, *, *, *, *, *) ; 

( Is_Per(o_per) |1 Is_FW{o_fw) ) 

? with(Get_Met(op_id, met_set)) { 

MetNull: false, 

MET(met_num) : 

with (Get_Fw(o_fw) ) ( 

FwNul1: 

with(Get_Per{o_per)) ( 

PerNull: false, 

pGr(pGr_num): (met_num >- per_num) 


); 


FW(fw_num): 

with(Get_Per(o„per)) ( 

PerNull: (met_num > fw_num), 

Per(peranum): ( met_num >= fw_num 

I I mGt_num >= per_num 

I I fw„num >= per_num) 

) 

) 

) 

false 


/* 2*Het <= MRT <= 2*MCP must exist for an Operator to be schedulable 







BOOL exported Unschedulable_Sporadic_Op(a_constraint ac, 

op_id_mGt_set met_set) { 

with(ac} { 

AConstraintNull: false^ 

AConstraint{op_id, *, *, o_mcp, o_mrt^ *, *): 

( Is_Mrt(o_mrt) It Is_Mcp{o_mcp) ) 

? with(Get_Met(op_id, met_set)) ( 

MetNull: false, 

MET(met„num): 

with{Get_Mcp(o_mcp)) ( 

McpNull; 

with (Get^Ift (o_mrt)) { 

MrtNull: false, 

MRT(mrt_num) : (2.0 * met_nun\ > mrt_num) 

). 

MCP{mcp_num); 

with(Get_Mrt(o_mrt)} ( 

MrtNull; {met_num > mcp_num), 

MRT(mrt_num) : { 2.0 * met_num > mrt_nutn 

M mGt„num > mcp_num 

II mrt_num >2.0 * mcp_num} 

} 

) 

) 

: false 

) 

); 

BOOL exported Period_Only(a_constraint ac) { 
with{ac) ( 

AConstraintNull: false, 

AConstraint(*, *, o_per, o_fw, o_jncp, o_mrt, *, *, *): 

'( Is_Per {o_per) && ! Is_B*/(o_fw) ) 

) 

); 

BOOL exported FinishWithin_Only{a_constraint ac) { 
with{ac) { 

AConstraintNull: false, 

AConstraint(*, *, o_per, o_fw, o_mcp, o_mrt, *, *, *}: 

( ! Is_Per (o_per) && I s_B‘7 (o_f w) ) 

) 

); 

BOOL exported MaxResTime_Only{a_constraint ac) { 
with(ac} ( 

AConstraintNull: false, 

AConstraint!*, *, o_per, o_fw, o_mcp, o_mrt, *, *, *): 

{ Is_Mrt(o_mrt) && !Is_Mcp{o_mcp) ) 

) 

}? 

BOOL exported MinCallPeriod_Only(a_constraint ac) { 
with(ac) ( 

AConstraintNull: false, 

AConstraint!*, *, o_.per, o_fw, o_mcp, o_mrt, *, *, *); 

! !Is_Mrt!o_mrt) && Is_Mcp!o_mcp) ) 

) 

}; 

REAL Smallest_Per!id_constraint_SGt cs, REAL ans) ( 
with{cs) ! 

IdConstraintSetNil: ans. 
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IdConstraintPair(hd, tl): 
with{hd) ( 

IdConstraintNull: Smallest_Per(tl, ans), 
IdConstraint(*, tc, *): 
v/ith!tc) ( 

OpConstraintsNull: Smallest_Per(t1, ans). 
Periodic(per, *): 
with(per) ( 

PerNull: Smallest_Per(tl, ans). 

Per(peranum): 

(per_num < ans) 

? Smallest_PGr(tl, per_num) 

: Smallest_Per(tl, ans) 


Sporadic(mcp, mrt): /* 

Smallest_Per(tl, ans) 


THIS IS NOT CORRECT. */ 


REAL Largest_Met(op_id_met_set ms, REAL ans) { 
with (ms) ( 

OpIdMetSetNil: ans, 

OpIdMetPair(hd, tl): 
with(hd) ( 

OpIdMetNull: Largest_Met(t1, ans), 

OpIdMet!*, m): 
v;ith(m) ( 

MetNull: Largest_Met(tl, ans), 

MET(met_num) : 

(met_num > ans) 

? Largest_Met(tl, met_num) 

: Largest_Met(tl, ans) 


BOOL exported Uniprocessor_Schedulable(op_id_met_set ms, 

id_constraint_set cs) { 

Smallest_Per(cs, 1000000000000.0) > Largest_Met(ms, 0.0) 

); 


/* Does the actual v;ork of getting # processors required. 

Called by Min_Processors_Required which converts to int. */ 

REAL Min_Processors_Requiredl{op_id_met_set ms, 

id_constraint_set cs) { 

with(cs) ( 

IdConstraintSetNil: 0.0, 

IdConstraintPair(hd, tl): 
with(hd) ( 

IdConstraintNull; 0.0 + Min_Processors_RGquiredl(ms, tl), 

IdConstraint(oid, tc, *): 
with(tc) ( 

OpConstraintsNull; 0.0 + Min_Processors_Requiredl(ms, tl). 
Periodic(per, *): 
with(per) ( 

PerNull: 0.0 + Min_Processors_Requiredl(ms, tl), 

Per(per_num): 

with(Get_Met(oid, ms)) ( 

MetNull: 0.0 + Min_Processors_Req[uiredl (ms, tl). 
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MET{met_num) : 

{met_num / per_num) + Min_Processors_Requiredl (ms, tl) 

) 

). 

Sporadic {mcp, mrt) : /* ««««<===== THIS IS NOT CORRECT. 

0.0 + Min_ProcGssors_Requiredl(ms, tl) 

) 

) 

) 

); 

/* Returns the # processors required by Cordeiro Dissertation pg 47. 

The .99 is used to approximate a ceiling function. 

INT exported Min_Processors_Required(op_id_met_set ms, 

id_constraint_set cs) { 

REALtoINT{Min„Processors_Requiredl{ms, cs) + 0.99) 

); 


/*-*/ 

id exported Extract„Id_From_IdConstraint{id_constraint idcons) { 
with{idcons) ( 

IdConstraintNull: IdNull, 

IdConstraint(op_id, *, *): 
with{op__id) ( 

OperatorldNull; IdNull, 

OperatorId{*, id, *): id 

) 

) 

}; 

operator.id exported Extract_OpId_From_IdConstraint(id_constraint idcons) 
with(idcons) ( 

IdConstraintNull; OperatorldNull, 

IdConstraint{op_id, *, *): op_id 

) 

); 


per Get_Per(optional_period o„per) { 
with(o_per) ( 

OptPeriodNull: PerNull, 

*/ OptPeriodPrompt: PerNull, 

OptPeriod(t, *): 

(Convert_Time2Real(t) >= 0.0) 

? Per(Convert_Time2Real(t)) 

: PerNull 

) 

); 

fw Get_Fw(optional_finish_within o_fw) { 
v;ith(o_fw) ( 

/ OptFinishWithinNull: Fv;Null, 

OptFinishVU thinPrompt: FwNull, 

OptFinishWithin(t, *): 
(Convert_Time2Real(t) >= 0.0) 

? FV/(Convert_Time2Real (t)) 

; FwNull 

) 

); 

mcp Get_Mcp (opt ional_mcp o_iiicp) { 
with(o_mcp) ( 

OptMcpNul1: McpNul1, 

OptMcpPrompt: McpNul1, 

OptMcp{t, *): 

{Convert_Time2Real(t) >= 0.0) 

? MCP(Convert_Time2Real(t)) 

: McpNull 

) 

) ; 

mrt Get_Mrt(optional_mrt o_mrt) { 
with(o_mrt) ( 

OptMrtNull: MrtNull, 

OptMrtPrompt: MrtNull, 

{ OptMrt{t, *); 

(Convert_Time2Real(t) >= 0.0) 

? MRT(Convert_Time2Real(t)) 

; MrtNull 

) 

); 


id_constraint_set exported Id_Constraint„Set_Union(id_constraint_set 

id_constraint_set s2) { 


V7ith (si) ( 

IdConstraintSetNil: s2, 

IdConstraintPair(hdl, til): 
with(s2) ( 

IdConstraintSetNil: si, 

IdConstraintPair{hd2, tl2); 

(LessThanOpId(Extract_ppId_From_IdConstraint(hdl), 
Extract_OpId_From_IdConstraint(hd2}) 
? hdl Id_Constraint_Set„Union(t11, s2) 

: (EqualOpId(Extract_OpId_From_IdConstraint(hdl), 

Extract_OpId_From_IdConstraint(hd2)) 
? hdl :: Id_Constraint_Set_Union(tll, tl2) 

: hd2 Id_Constraint_Set_Union{si, tl2) 

) 

) 


si. 


) 

); 


met Get_Met(operator_id op_id, op_id_met_set met_set) { 
with(met_set) ( 

OpIdMetSetNil: HetNull, 

OpIdHetPair(hd, tl): 
with{hd) ( 

OpIdMetNul1: Get_Met(op_id, t1), 

OpIdMet(oid, the_met): 

(oid == op_id) 

? the_met 

: Get_Met{op_id, tl) 

) 

) 

); 

/* The default (assumed) unit associated w/ this int will be microseconds. */ 
REAL Convert_Time2Real(time t) { 
with(t) ( 

TimeNull: -1.0, 

Time(tv, tu): 
with(tv) { 

IntegerNull: -1.0, 
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IntegerVal(str_digits): 
wlth(tu) { 

UnitNil; -1,0, 

UnitMICROSECONDS: INTtoREAL(STRtoINT(str_digits) } , 

UnitMS: {INTtoREAL(STRtoINT(str_digits)) * 1000.0), 

UnitSEC: (INTtoREAL(STRtoINT(str_digits)) * 1000000.0), 

UnitMIN: {INTtoREAL(STRtoINT(str_digits)) * 60000000.0), 

UnitHOURS: {INTtoREAL(STRtoINT(str_digits)) * 3600000000.0) 

) 

) 

) 

); 


fw Get_FW_from_Per(optional_period o_per} { 
with{o_per) { 

OptPeriodNull; FwNull, 

OptPeriodPrompt; FwNull, 

OptPeriod{t, *): 

(Convert„Time2Real(t) >= 0.0) 

? FV; (Convert_Time2Real (t)) 

: FwNull 

) 

); 

per Get_Per_from_Fw(optional_finish_within o_fw) { 
with(o_fw) ( 

OptFinishWithinNull: PerNull, 

OptFinishV/ithinPrompt: PerNull, 

OptFinishV/ithin(t, *)j 
(C onvert_Time2Real(t) >= 0.0) 

? Per(Convert_Time2Real(t)) 

: PerNull 

) 

); 

mcp Get_Mcp_fronuMrt(optional_mrt o_mrt, operator_id op_id, op_id_met_set met_set) 
with(o_mrt) ( 

OptMrtNull; McpNull, 

OptMrt Prompt: McpNull, 

OptMrt(mrt_time, *); 
with(met_set) ( 

OpIdMetSetNil: McpNull, 

OpIdMetPair(hd, tl): 
with(hd) ( 

OpIdMetNull: Get_Mcp_from_Mrt{o_mrt, op_id, tl), 

OpIdMet(oid, met): 

(oid == op_id) 

? with (met) { 

MetNull: McpNull, 

MET(met_num): 

(Convert_Time2Real(mrt_time) >= 0.0) 

? MCP(Convert_Time2Real(mrt_time) - met_num) 

: McpNull 

) 

: Get_Mcp_from_Mrt(o_mrt, op_id, tl) 

) 

) 

) 

); 

mrt Get„Mrt„from_Mcp(optional_mcp o_mcp, operator_id op_id, op_id_met_set met_set) 
with{o_mcp) ( 
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( 


opt McpNul1: Mr t NU11, 

OptHcpPrompt: MrtNul1, 

OptMcp(mcp_time, *); 
with(met_set) ( 

OpIdMetSetNi1: MrtNul1, 

OpIdMetPair(hd, tl): 
with(hd) ( 

OpIdMetNull: Get_Mrt_£rom_Mcp(o_mcp, op_id, met_set), 

OpIdMet(oid, met): 

(oid == op_id) 

? with(met) { 

MetNull: MrtNul1, 

MET(met_num): 

(Convert_Time2Real(mcp_time) >= 0.0) 

? HRT(met_num + Convert_Time2Real(mcp_time)) 

; MrtNul1 

) 

: Get_Mrt_from_Mcp(o_mcp, op_id, tl) 

) 

) 

) 

) ; 

trigger Insert_Trigger(optional_trigger ot) { 
with(ot) { 

OptionalTriggerNull; TriggerByNull, 

OptionalTriggerPrompt: TriggerByNull, 

OptionalTriggerA110rSome(type_trigger, *, *, *): 
with(type_trigger) ( 

TriggerNull: TriggerByNull, 

TriggerAll: TriggerByAl1, 

TriggerSome: TriggerBySome 

) , 

OptionallfExp(*, *): TriggerByNull 

) 

) ; 

BOOL exported All_OR_Some_Trigger(a_constraint c) { 
with(c) ( 

AConstraintNull: false, 

AConstraint{*, ot, *, *, *, *, *, *, *): 
v7ith(ot) ( 

OptionalTriggerNull: false, 

OptionalTriggerPrompt: false. 

OptionalTriggerAllOrSome(tt, *, *, *); 
with(tt) ( 

TriggerNull: false, 

TriggerAll: true, 

TriggerSome: true 

) 

) 


); 


id„constraint_set exported Get_Id_Constraint_Set(a_constraint 

op_id_met_set 

with(ac) ( 

AConstraintNull: IdConstraintSetNil, 

AConstraint(op_id, o_trigger, o„per, o_fw, o_mcp, o_mrt, 
(Valid_T_Constraint(ac)) 


? (Is_Per(o_per)) 


? (Is_FV7(o_fw)) 


? IdConstraintPair 


ac, 

met_set) ( 

*, *, *) : 
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(IdConstraint(op_id. 

Periodic (Get_Per (o_per) , Get_Fw(o„fv7) ) , 

Insert_Trigger(o_trigger)), 

IdConstraintSetNil) 

: IdConstraintPair 

(IdConstraint{op_id. 

Periodic{Get_Per(o_per}, Get_FW_from_Per(o_per})/ 
Insert_Trigger{o_trigger)), 

IdConstraintSetNil) 

: (Is_FV/(o_fw) ) 

? IdConstraintPair 

(IdConstraint{op_id. 

Periodic(Get_Per_from_Fw(o_fw), Get_FV(o_fw }), 
Insert_Trigger(o_trigger)), 

IdConst raintSetNi1) 

; (Is„Mrt(o_mrt)) 

? (Is_Mcp(o_mcp}} 

? IdConstraintPair 

(IdConstraint(op_id. 

Sporadic (Get_Mcp (o_mcp ), Get_Mrt (o_inrt)) , 
Insert_Trigger(o_trigger))/ 

IdConstraintSetNil) 

: IdConstraintPair 

(IdConstraint(op„id. 

Sporadic (Get_Mcp_from_Mrt (o_mrt, op_id, met_set) , 


Get_Mrt(o_mrt))^ 


op_id, met_set))j 


Insert_Trigger(o_trigger)), 

IdConstraintSetNil) 

IdConstraintPair 

(IdConstraint(op_id. 

Sporadic(Get_Mcp(o_mcp), Get_Mrt_from_Mcp(o_mcp. 


Insert_Trigger(o_trigger}), 
IdConstraintSetNil) 

((Insert_Trigger(o_trigger) == TriggerByAll) II 
(Insert_Trigger(o_trigger) == TriggerBySome) ) 

? IdConstraintPair(IdConstraint(op_id, 

OpConstraintsNull, 
Insert_Trigger(o_trigger)), 
IdConstraintSetNil) 

: IdConstraintSetNil 


); 

/****************** commented ******************** 

id_constraint_set exported Get_Id_Constraint_Set(a_constraint ac, 

op_id_met_set met_set) ( 

with(ac) { 

AConstraintNull: IdConstraintSetNil, 

AConstraint(op_id, *, o_per, o_fw, o_mcp, o„mrt, *, *, *): 
IdConstraintSetNil 


****************** end test 


/*-*/ 

id exported Extract_Id_From_OpIdMet(op_id__met idmet) { 
with(idmet) ( 

OpIdMetNull: IdNull, 

OpIdMet(op„id, constraints): 
with(op_id) ( 


Auxiliary Functions 


OperatorldNuil; IdNull, 

Operatorld(*, id, *): id 

) 

) 

) ; 

operator_id exported Extract_OpId_From_OpIdMet(op_id_met idmet) { 
with(idmet) ( 

OpIdMetNull: OperatorldNuil, 

OpIdMet(op_id, constraints): op_id 

} 

); 


op_id_met_set exported Op_Id_Met_Set_Union(op_id_met_set si, op_id_met_set s2) ( 

with (si) ( 

OpIdMetSetNil: s2, 

OpIdMetPair(hdl, til): 
with(s2) ( 

OpIdMetSetNil; si, 

OpIdMetPair(hd2, tl2); 

(LessThanOpId(Extract_OpId_From_OpIdMet(hdl), 

Extract_OpId_From_OpIdMet(hd2))) 

? hdl :: Op_Id_Met_Set_Union(tll, s2) 

: (EqualOpId(Extract_OpId_From_OpIdMet(hdl), 

Extract_OpId_From_OpIdMet(hd2))) 

? hdl ;; Op_Id_Met_Set_Union(tll, tl2) 

: hd2 :: Op_Id„Met_Set_Union(si, t12) 

) 

) 

); 

op_id_met_set exported Get_Id_Met_Set(a_vertex vertex) ( 
with(vertex) ( 

AVertexNull; OpIdMetSetNil, 

AVertex(op_id, opt_time): 
with{opt_time) ( 

OptionalTimeNull; OpIdMetSetNil, 

OptionalTimePrompt; OpIdMetSetNil, 

OptionalTime(t): 

(Convert_Time2Real(t) >= 0.0) 

? OpIdMetPair(OpIdMet(op_id, MET(Convert_Time2Real(t))), 

OpIdMetSetNil) 

: OpIdMetPair(OpIdMet(op_id, MetNull), OpIdMetSetNil) 

) 

} 

) ; 

/*-*/ 

/* 

constrained_op_set exported Build_Constrained_op_Set(op_id_met„set OpMetSet, 

id_constraint_set IdConsSet) { 


) ; 

*/ 

/*-V 

edge_set exported Edge_Set_Union(edge_set si, edge_set s2) ( 

v?ith(sl) ( 

EdgeSetNil: s2, 

EdgePair(hdl, til): 
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with(s2) ( 

EdgeSetNi1: si, 

EdgePair{hd2, tl2): 

{LessThanOpId(Ext ract_OpI4_From_Edge{hdl), 
Extract_OpId_From„Edge(hd2)) 

? hdl :: Edge_Set_Union(tll, s2) 

: {EqualOpId(Extract_OpId_From_Edge{hdl), 
Extract_OpId_From_Edge(hd2)) 

? hdl :: Edge_Set„Union(t11, tl2) 

: hd2 Edge_Set_Union(si, tl2) 

} 

) 

) 

) 

}; 

operator_id Extract_OpId_From_Edge(edge e) { 
with(e} ( 

EdgeNu11: Opera t orIdNu11, 

Edge(edge_id, */ *, *); Operatorld(OptionalTypeldNull, 

edge_id, 

OperatorldPairsNull) 

) 

); 


edge_set exported Get_Edge_Set(an_edge e) { 
with(e) ( 

AnEdgeNu11: EdgeSetNi1, 

AnEdge(id, It, fvi, tvi): 
with(fvi) ( 

FVertexIdNull: EdgeSetNil, 

FVertexId(foti, fid, foip): 
with(tvi) ( 

TVertexIdNull: EdgeSetNil, 

TVertexId(toti, tid, toip): 
with(lt) ( 

LatencyTimeNull: 

EdgePair(Edge(id, 

LatencyNull, 

Producer(OpGratorId(foti, fid, foip)). 
Consumer(Operatorld(toti, tid, toip))), 
EdgeSetNil), 

LatencyTimePrompt: 

EdgePair(Edge(id, 

LatencyNull, 

Producer(OperatorId(foti, fid, foip)). 
Consumer(OperatorId(toti, tid, toip))), 
EdgeSetNil), 

LatencyTime(t): 

EdgePair(Edge(id, 

Latency(Convert_Time2Real(t)), 

Producer(Operatorld(foti, fid, foip)), 
Consumer(OperatorId(toti, tid, toip))), 
EdgeSetNil), 


Auxiliary Functions 




APPENDIX E - Unparsing Rules 


/* declare an output_view to output a clean PSDL program */ 

view SHOVCGRAPH_TEXT_VIEVJ, SDE_VIEW, SPEC_ONLY_VIEW, IMPL_ONLY_VIEW; 

prototype 

: Prot [SDE_VIB*^ SHOV/_GRAPH_TEXT„VIB*/ (3 ; : = error.header 
multiple_root_message multiple_root_ids 
mu11iple_op_spec_message multiple_op_spec 
multiple_type„spGC_message multiple_type_spec 
also_op„type_message also_op_type_ids 
undefinGd_op_spec_message undefined_op_spec_set 
undefined_type„op„spec_message undefined_type_op_spec_set 
multiple_vertices_message multiple_vertices 
multiple_streams_message multiple_streams 
uniprocessor_unschedulability„msg 
min_processor_msg 

error_trailer @ 1 

[ BASEVI . SPEC_ONLY_VI , IMPL_ONLY_VI B‘/ @ = @ ] 


psdl_component s 

; PsdlNil tSDE_VIEW, SHOW_GRAPH_TEXT_VIEW 

I PsdlPair[SDE_VIB^r, SHOV/_GRAPH_TEXT_VIB-/, BASEVIB*/, SPEC_ONLY_VIB-/, 
IMPL_ONLY„VIEV; @ [ "%n " ] @] 


component 

: NoComponent[SDE_VIEW, SHOW_GRAPH„TEXT_VIEW @="<COMPONENT LIST>"] 

I Op [SDE_VIEVU SH0V/_GRAPH_TEXT_VIB'7 0: :="%nOPERATOR " 0 
error_header 
root_message 
multipiG_root_message 
multiple_op_spGC_message 
also_defined_as_type_message 
undefinGd_input_message undefined_input_id 
obsolete_input_mGssage obsolete_input_id 
undefined_output_message undefined_output_id 
obsolGte_output_message obsolete_output_id 
input_type_error_message input_type_error_set 
output_type_error_message output_type_error_sGt 
obsolete_state_mGssage obsolete_state_id 
met_Grror_message 

undefined_stream_message unde fined_st ream 
obsoletG_stream_message obsolete_stream 
undefined_constraint_message undefined_constraint 
obsolete_constraint_message obsolete_constraint 
error_trailer 0 0] 

[BASEVIEW 0!:="%nOPERATOR ^ 0 0 0] 

[SPEC_ONLY_VIEV? 0 ; : = “ %nOPERATOR " 0 @ ..] 

[IMPL_0NLY„VIEV7 0 : :="%n" .. ..0] 

I Data[SDE_VIB^. SHOV;_GRAPH_TEXT_VIB'/ 0 : : ="%nTYPE "0 

error_header 

multiple_type_spec_message 
also_defined_as_op_message 
undefined_op_impl_message undefined_op_impl 
obso1etG_op_imp1_message obsoletG_op_imp1 

error_trailer 0 @3 

[BASEVIEVJ @::=“%nTYPE " 0 0 0] 

[SPEC_ONLY_VIE?W @:; = "%nTYPE ” 0 0 
[IMPL_ONLY_VIB‘i 0: :="%n" .. .. 0] 


id : IdNull [SDE_VIEW, SHOW„GRAPH_TEXT_VIEW ": : = ••<identi f ier>“ ] 

[BASEVIEW, SPEC_ONLY_VIEW, IMPL_ONLY_VIEW ^;=-UNDEFINED_ID"] 
I Id [SDE_VIEW, SHOV;_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 

IMPL_ONLY_VIEW ^^] 


integer; IntegerNull [SDE„VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEW, SPEC„ONLY_VIEW. 
IMPL_ONLY_VIEW 0::=“<intGger>"] 

I IntegerVal[SDEJVIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW @::= 


type_spec 

: ■IVpeSpec[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEVJ @;:= "%t%nSPECIFICATION” 

@ /*o_generic_params*/ 

@ /*o_type„decls*/ 

0 /*o_operators*/ 

0 /* o_keywords */ 

0 /*o_informal_descs*/ 

0 /*o_formal_descs*/ 

"%b%nEND'* 

] 


o_gGneric_params 

; GenericNone [ SDE_VI EV7, SHOW_GRAPH_TEXT_VI 0 ; : = ] 

I GenericPrompt [SDE_VIB‘/, SH0V7_GRAPH_TEXT_VIEV; 0 :; ="%t%n [opt ional generic 
parameters]%b"] 

I Generic [SDE_VIEV;, SHOW_GRAPH_TEXT_VIEVJ, BASEVIEVJ, SPEC_ONLY_VIEV/, 
IMPL_ONLY_VIEW 0;;= "%t%nGENERIC" 

“%t%n" 0 "%b%b"]/*type_declarations*/ 


type_declarations 

: lypeDec 1 Ni 1 (SDE_VI EW, SH0V7_GRA PH_TEXT„VI B*/ 0 ; : =} 

I TypeDeclPair[SDE_VIEW, SHOV;_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIB‘/ 0 %n" ] 03 


a_decl: ADeclNil [SDE_VIB‘7, SHOW_GRAPH_TEXT_VIB'/ ^;: = "%t<type declaration>%b''] 
I ADecl[SDE_VIEW, SH0V7_GRAPH„TEXT_VIB‘J, BASEVI BV, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIBV ^= 

0 " : “ /*id_list*/ 

0 1 /*undefined ADT decl_type_name*/ 


type_namG 

i Ty peNameNu 11 [ S DE_V I EW, SHOW„GR APH_TEXT_V I EW 0 : ; =" <'iy pe Name>" ] 

[BASEVIEW, S PEC_ONLY_VIEW, IMPL_ONLY_VIEW @: : = "UNDEFINED_TYPE_NAME"] 
I TypeName[SDE_VIEW, SHOV*?_GRAPH„TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VI B-;@; ; = 0 / * type_i dent i f ier * / 

03 /*o_bracket_type_declarations*/ 


decl_type_name 

; DTypeNameNul 1 [SDE_VIB*7, SHOW_GRAPH_TEXT_VIB*I 0 : : = "<decl_type_name>" ] 

[BASEVIEW, SPEC_ONLY_VIEW, IMPL_ONLY_VIEW 0 ; ; = ■■ UNDEFINED_TYPE_NAME" ] 
! DTypeInteger[SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIB*J 0;:= "INTEGER"] 
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I DTypeReal [SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIB>f, 
IMPL_ONLY_VIEV/ @;:= "REAL"] 

I D'iypeBooleantSDE_VIE;-;, SHOV]_GRAPH_TEXT„VIB';, BASEVIB'7, SPEC_ONLY_VIB‘J, 

IMPL_ONLY_VIEW @::= "BOOLEAN"] 

I DTypeSimpleldESDE.VIEW, SHOVJ„GRAPH_TEXT_VIEV/, BASEVIEW, SPEC_ONLY_VIEV;, 
IMPL_ONLY_VIEVJ @::= 

I D'IVpeUserDefined[SDE„VIB‘U SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEl'/, 
IMPL„ONLY_VIEV] @ = 

@ /* id */ 

@]/* bracket_type_declarations */ 


o_bracket_type_declarations 

: OBTypeNone [ SDE_VIB*J, SHOW_GRAPH_TEXT_VI0 ; : = ] 

I OBTypePrompt {SDE„VIB'^ SHOV/_GRAPH„TEXT_VIEW (i;: = "%n[type declarations]"] 
I OBTypeDeclaration[SDE_VIEW, SHOW_GRAPH_TEXT__VIEW, BASEVIEVU 
SPEC_ONLY_VIEV^, IMPL_ONLY_VIB‘7 @:; = 

"%n[%t%n" 

@ /*type_declarations*/ 

"%b%n]"] 


bracket_type_declarations 

: BiypeNull[SDE_VIEW, SHOW_GRAPH_TEXT„VIEW @"[<type_declarations>]"] 
I BTypeDeclaration[SDE_VIB‘7, SHOW_GRAPH_TEXT_VIEW, BASEVIB‘7, 
SPEC_ONLY_VIB7, IMPL_ONLY_VIEV/ @:: = 

"%nt%t%n" 

/*type_declarations*/ 

"%b%n]") 


alone„id_list 

: AI dNi 1 (SDE_VI EV7, SHOW_GRA PH_TEXT_VI B-J @ ; : = ] 

I AldPair [SDE_VIEW, SHOV/_GRAPH_TEXT_VIEVJ, BASEVIEV/, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW @ [ ", “ ] @ ] 


id_list 

: IdNil[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW <3 : : =] 

I IdPair[SDE_VIB7, SHOV7_GRAPH_TEXT_VIEVJ @:;= ^ (multiply_defined ",%n'’) @ ] 
[BASEVIB‘7, SPEC_ONLY_VIB‘7, IMPL_ONLY_VIB^ @^ [",%n"] @ ] 


o_type_decls 

; TypeNone[SDE_VIB-7, SHOW_GRAPH_TEXT_VIB'7 @ : : =] 

I TypePrompt (SDE_VIBV, SHOW_GRAPH_TEXT_VIB*7 @ : ="%t%n [opt ional type declarations] %b" ] 
I Type[SDE_VIB-7, SHOVJ_GRAPH_TEXT_VIB/, BASEVIB*/, SPEC_ONLY_VIEW @= 

"%t%n%n" 

@ "%b"]/*type_declarations*/ 


©^operators 

; OperatorNil [SDE_VrEW, SH0V7_GRAPH_TEXT_VIEVJ @:: = ] 

I OperatorPair [SDE_VIB‘7, SHOV7_GRAPH_TEXT_VIEV7, BASEVIEW, SPEC_ONLY_VIEVJ, 
IMPL_ONLY_VIEV7 ^ [" "] @] 


t_oper_spec 

: TOpSpecNil [SDE_VIB7, SHOV7_GRAPH_TEXT_VIEV7 = "%t%n (optional operator] %b" ] 
I TOpSpec [SDE_VIEW, SHOW_GRAPH_TEXT_VIEV7 = "%t%nOPERA'IOR " 

@ /*id*/ 
error„hea der 


mu1tiply_defin€d_message 

error_trailer 

@ "%b"]/*operator_spec*/ 

[BASEVIEW, SPEC_ONLY_VIEV7, IMPL_ONLY_VIEW " %t %nOPERATOR " 

@ /*id*/ ^ 

@ "%b"]/*operator_spec*/ 


operator_spec 

: OperatorSpec[SDE_VIEW, SHOV/_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIB-J @::= "%t%nSPECIFICATION" 

@ /*o_generics_list*/ 

@ /*o_inputs_list*/ 

{3 /*o_outputs_list*/ 

@ /*o_states_list*/ 

@ /*o_exceptions_list*/ 

@ /*o_timing_info_list*/ 

@ /*o_keywords*/ 

<3 /*o_informal_descs*/ 

@ /*o_ forma l_descs*/ 

"%b%nEND"] 


o_generics_list 

; GenericsListNone[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW @::=] 

} GenericsListPair [SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEV/, SPEC_ONLY_VIEW, 
IMPL_0NLY_VIEV7 @::= ^ @] 


o_generics 

: OpGenericsNone[SDE__VIEW, SHOW_GRAPH_TEXT_VIEW :="%t%n[optional generics]%b"] 
I OpGenerics(SDE_VIEW, SHOW_GRAPH_TEXT_VIEV/, BASEVIEV/, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEV/ @:;= "%t%nGENERIC" 

"%t%n" @/*type_declarations*/ 

@ "%b%b" ]/*recjmts_trace*/ 


o_inputs_list 

: InputsListNone[SDE_VIEW, SHOV;_GRAPH_TEXT_VIEW @ : : =] 

I InputsListPair{SDE_VIEW, SHOV;_GRAPH_TEXT_VIEW, BASEVIEV‘7, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW @:;= ^ 0] 


o_inputs 

: OpinputsNone[SDE_VIEW, SHOV7_GRAPH_TEXT_VIEW @;: = “% t %n[optional input s]%b"] 
j OpInpUts(SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY„VIEW 0::= "%t%nINPUT" 

“%t%n"0/*type„declarations*/ 

0 "%b%b"]/*reqmts_trace*/ 


o_outputs_list 

: Output sLi stNone [ SDE_VI B-7, SHOW_GRAPH_TEXT_VI B‘J 0 : : = ] 

i OutputsListPair (SDE_VIB‘J, SHOV7_GRAPH_TEXT_VIEV7, BASEVIB'J, SPEC_ONLY_VIEV7, 
IMPL_ONLY_VIEW 0::= ^ 0] 


o_outputs 

: 0p0utputsNone[SDE_VIB-7, SHOV7_GRAPH_TEXT_VIB‘7 0 %t %n (opt ional outputs] %b"] 

1 OpOutpUts[SDE_VIB*7, SHOV7_GRAPH_TEXT_VIEV7, BASEVIB*/, SPEC_ONLY_VIB‘7, 
IMPL_ONLY_VIEW @::= “%t%nOUTPUT" 

"%t%n"@/*type_declarations*/ 

0 "%b%b"}/*requirements_trace*/ 
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o_exceptions_list 

: ExcListNone[SDE_VIEW, SHOV/_GRAPH_TEXT_VIEW @ = j 

I ExcListPair [SDE_VIEW, SHOV;_GRAPH_TEXT„VIEW, BASEVIEV;, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIB^ 0::= ^ @] 


o_exceptions 

; OpExceptionsNone[SDE_VIEi'l, SHOV/_GRAPH_TEXT_VIEV^ @ : : =*■ %t%n [opt ional except ions] %b" ] 
I OpExceptions[SDE_VIB*;, SHOV;_GRAPH_TEXT_VIEV*U BASEVI&U SPEC_0NLY_VIE;*J, 
IMPL_ONLY_VIEW @;:= ■•%t%nEXCEPTIONS" 

"%t%n" @/*id_list*/ 

@ '•%b%b'‘]/*reqmts_trace*/ 


o_timing_info 

: OpTimingIneoNone[SDE„VIB‘U SHOW_GRAPH_TEXT_VIB-J @ : : =] 

I OpTimingInfoPrompt [SDE_VIB‘U SHOV;_GRAPH_TEXT_VIEV7 @ : =‘'%t %n [opt ional timing 
in format ion]%b"] 

I OpTimingInfo[SDE„VIB*U SHOW_GRAPH_TEXT_VIEV/, BASEVIB*;, SPEC_ONLY_VIBV, 
IMPL_ONLY_VIEV; @:: = 

-%t%nMAXIMUM EXECUTION TIME " 

@ /*time*/ 

"%t" (i "%b%b'‘] /*reqmts_trace* / 


time 

: TimeNull[SDE_VIEV;, SHOVJ_GRAPH_TEXT_VIB^ @ : ; = "<time expression>" ] 
I Time (SDE_VIEW, SHOV/_GRAPH_TEXT_VIEW, BASEVIEW, SPEC„ONLY_VIEW, 
IMPL_ONLY_VIB‘J @!:= @/*integer*/ 

(i] /*time_unit*/ 


time_unit 

: UnitNil[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEV^^ @ " <unit S> "} 

I UnitMICROSECONDS(SDE_VIEt'J, SHOW_GRAPH_TEXT_VIB*;, BASEVIEW, SPEC_ONLY_VIEV/, 
IMPL_ONLY_VIEW @:t=" MICROSEC"] 

I UnitMS[SDE„VIEV^, SHOW_GRAPH_TEXT_VIB‘7, BASEVIBV, SPEC_ONLY_VIEVJ, 
IMPL_ONLY_VIB^ @;:=" MS"] 

I UnitSEC(SDE_VIEW, SHOV;_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEVJ, 
IMPL_ONLY_VIBV @" SEC“] 

1 UnitMIN[SDE_VIEW, SHOW_GRAPH_TEXT__VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VI EV*; 0 . . = min - ] 

! UnitHOURS[SDE_VIEW, SHOV;_GRAPH_TEXT„VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VI @ " HOURS"] 


o_states_list 

: StatesListNone[SDE_VIB*J, SHOV7_GRAPH_TEXT_VIEV; @ : : =] 

I StatesListPair[SDE_VIB‘/, SHOV7„GRAPH_TEXT_VIEV7, BASEVIEV7, SPEC_ONLY_VIB^r, 
IMPL_0NLY_VIB; @::= ^ @] 


o_states 

: OpStatesNone [SDE_VIEV7, SHOW_GRAPH_TEXT_VIB'7 @ ; = "%t %n [opt ional states]%b") 
I OpStates[SDE_VIB-7, SHOV/_GRAPH_TEXT„VIB'J, BASEVIEV7, SPEC_ONLY„VIB‘/, 
IMPL_ONLY_VI B-7 @ = " % t % nSTATES" 

"%t%n"<a /*type_declarations*/ 

"%nINITIALLY" 

"%t%n"(i /*express!on_list*/ 


<i "%b%b%b"]/*reqmts_trace*/ 


initial_args 

: InitialArgsNil[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW 0:;=] 

I InitialArgs[SDE_VIB‘7, SHOV/_GRAPH_TEXT_VIB*J, BASEVIB^, SPEC_ONLY_VIEt/, 
IMPL_ONLY_VIEW @^ [ "%n"] @] 


an_argument 

: AnArgNil[SDE_VIEW, SHOV7_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 

IMPL_ONLY_VIEW @:: = "<initial argument>"] 

I AnArgument[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW @:: = "(%t%n" @ "%b%n} "] 


expression_list 

: In i t i a 1 ExpLi St Ni 1 [ SDE_VI EV7, SHOV7_GRAPH_TEXT„VI EV7 @ : ; = ] 

1 InitialExpListPair[SDE_VIEW, SHOV7_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW @^ ["/%n"] @] 


expression 

: ExpNull[SDE_VIB*/, SHOV7_GRAPH_TEXT_VIB'J, BASEVIEV7, SPEC_ONLY_VIEW, 

IMPL_ONLY_VIEW @::="<exp>“] 

i Identifier[SDE_VIEW, SHOV7_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW @::= @] 

I Text ual_Descript ion [SDE_VIEV7, SHOW_GRAPH_TEXT_VIEW, BASEVIB'J, SPEC_ONLY_VIB-7, 

IMPL_ONLY_VIEW @::= "\" Q "\""] 

I TypeExpression[SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW @;:= 0 @ @ ] 

I ParenthesizedExp [SDE_VIEW, SHOV/_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY„VIEW, 

IMPL_ONLY_VIEW @= "(" @ ")"] 

/* BOOLEAN EXPRESSIONS */ 

I True [SDE_VIB'J, SHOV/_GRAPH_TEXT_VIB‘l, BASEVIEV/, SPEC_ONLY_VIEW, 

IMPL_ONLY_VIEW @“TRUE"] 

I False[SDE_VIB‘7, SHOW_GRAPH_TEXT_VIB*/, BASEVIB^/, SPEC_ONLY_VIEV7, 

IMPL_ONLY_VIEW @“FALSE"] 

1 NotExp[SDE_VIEW, SHOV;_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 

IMPL„ONLY_VIEW = NOT " @] 

( EqualExp[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 

IMPL_ONLY_VIEW @:=@ " = “ 0] 

I LessExp[SDE_VIB*J, SHOW_GRAPH_TEXT_VIB*7, BASEVIB*/, SPEC_ONLY_VIB'7, 

IMPL_ONLY_VIEW @:=@ " < " @] 

I GreaterExp[SDE_VIEW, SHOV7_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW @::=@ " > " @] 

I GreatEqualExp[SDE_VIEW, SHOV7_GRAPH_TEXT_VIB*7, BASEVIBJ, SPEC_ONLY_VIB‘7, 
IMPL_ONLY_VIEW @::=@ " >= " Q] 

1 LessEqualExp[SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLYJVIEW @::=@ " <= " @] 

I NotEquivExp[SDE_VIB‘J, SHOW_GRAPH_TEXT_VIBJ, BASEVIEW, SPEC_ONLY_VIB'7, 
IMPL_ONLY_VIEW Qz " /= " @] 

I AndExp[SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 

IMPL_ONLY_VIEW @:=@ " AND " @] 

I OrExp[SDE_VIB‘7, SHOV7_GRAPH_TEXT„VIBV, BASEVIB*/, SPEC_ONLY„VIB^, 

IMPL_ONLY_VIEW @::=@ " OR " @] 

I XorExp[SDE_VIEW, SHOV7_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 

IMPL_ONLY_VIEW @::=@ “ XOR " (i] 

/* ARITHMETIC EXPRESSIONS */ 
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j Integer (SDE_VIEW, SHOVJ_GRAPH_TEXT„VIEW, BASEVIEW, SPEC_ONLY_VIEV/, 
IMPL_ONLY_VIEl*? Q 

I Real [SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEV/, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEV/ @ 

I PlusExp[SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VTEW, 
IMPL„0NLY_VIEV7 @; =@ " + " @] 

I MinusExptSDE„VIB'7, SH0W_GRAPH_TEXT_VIEV7, BASEVIEV;, SPEC_0NLY_.VIEV7, 
IMPL_ONLY_VIEV7 @" - " @] 

I TimesExp(SDE_VIB‘7, SHOV7_GRAPH_TEXT_VIEV7, BASEVIEVJ, SPEC_OMLY_VIEV7, 
IMPL_0NLY_VIEV7 @: =@ " * " @3 

I DivExp[SDE_VIBi7, SHOV^_GRAPH_TEXT_VIB^^, BASEVIB>7, SPEC_ONLY_VIB-7, 
IMPL_PNLY_VIEV7 @: =@ " / " 0] 

! NegativeExp[SDE_VIEW, SHOW_GRAPH_TEXTJVIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_0NLY„VIB7 @::=" - " @] 

I PositiveExp[SDE„VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_0NLY_VIEV7 @::=" + " @] 

I AbsExp(SDE_VIB-7, SHOW_GRAPH_TEXT_VIEW, BASEVIB^7, SPEC_ONLY_VIEW, 
IMPL_ONLY_VI B-7 0 : : =" ABS ( " @ " ) “ ] 

I RemExplSDE_VIB*7, SH0V7_GRAPH_TEXT_VIEW, BASEVIB«7, SPEC_ONLY_VIEW, 
IMPL_0NLY_VIB*7 0: : =@ " rem " 0] 

I ModExp[SDE_VIB‘7, SHOV7„GRAPH„TEXT_VIEV7, BASEVIEV7, SPEC_0NLY_VIB^7, 
IMPL_0NLY_VIEV7 @: =0 " mod ” 0] 

I ExponentExp[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_0NLY_VIEV7 0: : =0 " ** " 0] 

/* STRING EXPRESSIONS */ 

I ConcatExp(SDE_VIEW, SH0V7_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEV; @ j ; =@ " & " @] 


o_keywords 

: KeywordsNone[SDE_VIB>7, SH0V7_GRAPH_TEXT_VIB^ 0 : : =] 

I Keywords Prompt tSDE_VIB‘7, SHOV7_GRAPH_TEXT_VIEV7 0 ; : =" %t %n [opt ional keywords] %b" ] 
I Keywords (SDE_VIB-7, SH0W_GRAPH_TEXT_VIEV7, BASEVIEV7, SPEC_ONLY_VIEW, 

IMPL_ONLY_VI EV7 0 ; ; =" %t %nKEYWORDS " 

■'%t%n“@/*id_list*/ 

''%b%b'’] 


o_in formal_desc s 

: IneormalDescsNull(SDE_VIEW, SHOW_GRAPH_TEXT_VIEW 0::=] 

! InformalDescsPrompt[SDE_VIEW, SH0V7_GRAPH_TEXT_VIEW 0%n[optional informal 
description] *'] 

j InformalDescs[SDE_VIEW, SH0V7_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY„VIEV7 0 ; : ="%nDESCRIPTION%t%n{“ 0 *'} %b" ]/*commentLines*/ 


o_formal_descs 

: FormalDescsNone[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW 0;;=] 

I FormaIDescsProrapt[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW 0::="%n[optional formal 
description]"3 

I FormalDescs[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_0NLY_VIB-7 @ %nAXIOMS%t%n( " 0 M %b" ]/*commentLines* / 


reqmts_trace 

: ReqmtsTraceNone[SDE_VIEW, SH0V7„GRAPH_TEXT_VIEW 0 ; : = ] 

I ReqmtsTracePrompt [SDE_VIEW, SH0V7_GRAPH_TEXT_VIEW 0: : = "%n[ requirements trace]''] 
I ReqmtsTrace[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_0NLY_VIB‘7 0 : ; = " %nREQUIRED BY" 

"%t%n“0 "%b"]/*id_list*/ 


Unparsing Rules 


text: TextNull[SDE_VIB-7, SH0W_GRAPH_TEXT_VIB-7 @ ; : =:-<text>" ] 

{ Text [SDE_VIB*7, SH0V7_GRAPH_TEXT„VIB‘7, BASEVIB-7, SPEC_0NLY_VIB-7, 
IMPL_0NLY_VIEW 0::=^] 


type„impl 

: TVpelmplNull [SDEJVIEW, SH0V7_GRAPH_TEXT_VIEW 0: : =" %n<type implement at ion>"] 
I AdaTypeImpl[SDE_VIB*7, SH0V7_GRAPH_TEXT_VIB^, BASEVIB‘7, SPEC_0NLY_VIB*7, 
IMPL_ONLY_VIEW 0; : = "%nIMPLEMENTATION ADA " 0 "%n%t" “%b%nEND"] 

I Typelmpl [SDE_VIEW, SHOW_GRAPH_TEXT„VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW 0 : ; = "%nIMPLEMENTATION " 

0 /*type_name*/ 

”%t"@ "%b%nEND"]/*operator_impl_list*/ 


operator_impl 

: OpImplNull [SDE_VIEW, SH0V7_GRAPH_TEXT_VIEW 0 : : ="%n<operator implementat ion>" ] 
I AdaOpImpl [SDEJVIEW, SHOW_GRAPH_TEXTJVIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW 0: : = "%nIMPLEMENTATION ADA " 0 “%n%t" "%b%nEND"] 

I Operatorlmpl 

[SDE_VIEW, SH0V7_GRAPH_TEXTJVIEW 0; : = "%nIMPLEMENTATION" 

0 /*graph*/ 

error_header 

producerop_per i od_l e_consumer op„msg 
sporadic_consumerop_wo_trigger_msg 

const r_producerop_and_unconstr_consumerop_w_trigger_msg 
unconst r_producerop_and_constr_consumerop_w_byall_msg 
unconst r_producerop_and_const r_consumerop_w_bysome_msg 
error_trailer 

^ /*declarations*/ 

0 /*cc*/ 

"%nEND"] 

[BASEVIEW, SPEC_ONLY_VIEW, IMPL_ONLY_VIEW 0::= "%nIMPLEMENTATION" 

0 /*graph*/ 

^ /*declarations*/ 

0 /*cc*/ 

"%nEND“} 


operator_impl_list 

: OpImplListNull[SDE_VIEW, SHOW_GRAPa-TEXT„VIEW 0: : = ] 

! OpImplListPair[SDE_VIEW, SHOW_GRAPH_TEXTJVIEW, BASEVIEW, SPEC_ONLYJVIEW, 
IMPL_ONLY_ylEW @;:= ^ [“%n"3 0]/*t_op_impl*/ 


t_op_impl 

: TOpImplNull [SDE_VIB-7, SH0V7„GRAPH_TEXT_VIB^ "%t%n[operator implementation 

list]%b"] 

I T0pImpl[SDE_VIB-7, SHOV7_GRAPH_TEXT_VIB-7 ^::= "%t%nOPERATDR " 

0 /*id*/ 

error_header 
missing_op_spec_message 
mu 11iply_de fin ed jnes sa ge 

obsolete_state__message obsolete_state_id_sGt 
undefined_st ream_message undefined_stream 
obsolete_stream_message obsolete_stream 
unde fined_cons t raint _mes sa ge undefined_cons t ra i n t 
obsolete_constraint_message obsolete_constraint 


244 






APPENDIX E - Unparsing Rules 


error_trailer 
@ "%b"]/*operator_impl*/ 

[BASEVIEV7, SPEC_ONLY_VIEVJ, IMPL_ONLY_VIB*/ = "%t%nOPERATOR " 

Q /*id*/ 

@ “%b'']/*ope3rator_impl*/ 


graph: GraphNull [SDE_VIEV7, SH0W_GRAPH_TEXT_VIEV7 (i : : = "%t%n<graph>%b''] 

I Graph[SDE_VIEW @::="%t%nGRAPH%t%n-- see graph viewer for details --%b" 
/*vertex_list*/ 

''%n" 

., /*edge_list*/ 

••%b"3 

[SHOV/_GRAPH_TEXT_VIEVU BASEVIEV/, SPEC_ONLY_VIEW, 

IMPL_ONLY„VI B/ @"%t %nGRAPH" 

@ /*vertex_list*/ 

“%n'' 

@ /*edge_list*/ 

••%b“] 


VGrtex_list 

:VertexListNull [SDE_VIEW, SHOV;_GRAPH_TEXT_VIEVJ @:i=] 

IVertexListPair[SDE_VIEV7, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIB^ @^ ["%n"] @] 


a_vertGX 

; AVer t exNul 1 [ SDE_VI B*U SHOW_GRAPH_TEXT_VI B‘/ " %n [ opt iona 1 vert ex list]”] 

|AVertextSDE_VIB-;, SHOV?_GRAPH_TEXT_VIB*/, BASEVIB-J, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW ^%t%nVERTEX " 

@/*operator_id*/ 

@/*optional_time*/ 

"%b''3 


opGrator_id 

: OperatorldNull [SDE_VIB*7, SHOW_GRAPH_TEXT_VIB'? 0 : : %n<operator id>"] 
I OperatorId[SDE_VIB‘;, SHOW_GRAPH_TEXT_VIEW, BASEVIB‘7, SPEC_ONLY_VIB*U 
IMPL_ONLY_VIB‘; @ = 

@ /*optional_type_id*/ 

Q /*id*/ 

@]/*operator_id_pairs*/ 


optional_type_id 

; Opt iona lTypeIdNull[SDE_VIE:VU SHOVJ_GRAPH_TEXT_VIB'/ @::=] 

I OptionaITypeldPrompt[SDE_VIB^, SHOW_GRAPH_TEXT_VIB^ @[optional type id] . “3 
I Opt iona lTypeId[SDE_VIB'U SHOW_GRAPH_TEXT_VIB-;, BASEVIB^, SPEC_0NLY_VIB‘7, 
IMPL_0NLY„VIB'7 @ = 

@ ".-/*id*/3 


opera t or_id_pair s 

: OperatorldPairsNull[SDE_VIEW, SHOW_GRAPH_TEXT„VIEW @::=] 

I OperatorldPairsPrompt tSDE„VIB/, SHOV;_GRAPH_TEXT_VIBV @ " %n(optional vertex 

pairs]%n"3 

I OperatorIdPairs[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIB-J @ : : = " ( " @ " I “ / *alone_id_l ist * / 

(3 ") “3/*alone_id_list*/ 


optional_time 

: Opt ionalTimeNul 1 [ SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEVJ @ : : = ] 

I OptionalTimePromptISDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW @[optional time]"] 
1 OptionalTime(SDE_VIEW, SHOV/_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW 0::= " : " @ ]/*time*/ 


edgG_list 

: EdgeLi stNi 1 [ SDE_VI , SHOVJ_GRAPH_TEXT_VIB*7 @ : : = ] 

I EdgeListPair (SDE_VIEVU SHOV7_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW 0::= ['’%n"] @] 


an_edge 

: AnEdgeNull [SDE_VIEV7, SH0W_GRAPH_TEXT_VIEV7 ": : = "%n [optional edge list]"] 
I AnEdge[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW "%t%nEDGE " @/*ld*/ 

@/*latency_time*/ 

"%t%n" 

(a " ->“ /*vertex_id*/ 

"%n" 

0 "%b%b"]/*vertGX_id*/ 


latency_time 

; LatencyTimeNull [SDE_VIEV/, SH0W_GRAPH_TEXT_VIEV7 @ : : =] 

\ LatencyTimePrompt [SDE_VIB‘7, SHOW_GRAPH„TEXT_VIB*; @ " [optiona 1 latency time] " ] 

1 LatencyTime[SDE_VIB^^, SH0V7_GRAPH_TEXT_VIB*J, BASEVIB‘7, SPEC_0NLY_VIEV7, 
IMPL_ONLY_VIEW 0::= “ : " 0 ]/*time*/ 


f rom_vert ex_id 

: FVertexIdNull[SDE_VIB7, SHOV7_GRAPH_TEXT_VIB‘7 0 : : ="%n<vertex id>"3 

[ BASEVIB'7, SPEC_ONLY_VI B^^, IMPL_ONLY_VIEV7 0 : : = " %nUNDEFINED_ID" ] 
1 FVertexId[SDE_VIEV/, SH0W_GRAPH_TEXT_VIB‘7, BASEVI B*7, SPEC_ONLY_VIEW, 
IMPL_ONLY„VIEW 0::= ^ 

0 /*optional_type_name*/ 

0 /*id*/ 

0] /*operator_id_pairs*/ 


to_vertex_id 

; TVertexIdNull (SDE_VIBV, SHOV7_GRAPH_TEXT_VIEV7 0 ; : %n<vertex id>"] 

[BASEVIB7, SPEC_ONLY_VIEW, IMPL_ONLY_VIEVJ 0 : : %nUNDEFINED_ID“ ] 
f TVertexId[SDE_VIB-7, SHOV7_GRAPH_TEXT„VIEV7. BASEVIBV, SPEC„ONLY_.VIB*/, 
IMPL_ONLY_VIEW 0::= 

0 /*optional_type_name*/ 

0 /*id*/ 

0] /*operator_id_pairs*/ 


declarations 

: Declarations [SDE_VIEV7, SH0V7_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_OMLY_VIEV7, 
IMPL_ONLY„VIEW @/*optional_streams*/ 

0 3/*optional_timers*/ 


optional_st reams 

: St reamsNu 11 [ SDE_VI B‘7, SHOW_GRAPH_TEXT_VI BfJ 0 : : = ] 

I St reamsPrompt [ SDE_VI B7, SH0V7_GRAPH_TEXT_VIBi7 0 :: = '•% t %n [ opt iona 1 st reams] %b “ ] 
1 Streams [SDE_VIB‘7, SH0W_GRAPH_TEXT_VIB*7, BASEVIB7, SPEC_0NLY_VIB*7, 
IMPL_ONLY_VIEW 0::=“%t%nDATA STREAM" 
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"%t%n“ @ /*type_declarations*/ 
"%b%b"] 


optional_timers 

: TimersNull [SDE_VIB‘;, SHOV;_GRAPH_TEXT_VIEl*/ @ 

I TimersPrompt [SDE_VlElrU SHOW_GRAPH_TEXT„VIEVJ @ " %t%n [opt ional timers] %b"] 

1 Timers [SDE_VIB*U SH0W_GRAPH_TEXT_VIB‘7, BASEVIB'U SPEC__ONLY_VIEV;, 
IMPL_ONLY_VIEl'J @ : : =« %t%nTIMER" 

“%t%n"@ "%b%b”]/*id_list*/ 


cc : CcNu 11[SDE_VIE;1‘^ SH0V;_GRAPH_TEXT_VIEW @ “%t%n<control constraints>%b"] 
I Cc [SDE_VIEW, shovj_graph_text_view, baseview, spec_only„view, 
IMPL_ONLY_VIB'J @:;= "%t%nCONTROL CONSTRAINTS" 

@ /*constraints*/ 

"%t‘' 

@ “%b%b"]/*o_informal_descs*/ 

constraints 

: Const ra int sNu 11 [SDE_VIEW, SHOV/_GRAPH_TEXT_VIEW @ : : = ] 

I ConstraintsPair[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VI EV; @ [ " %n" ] @ ] 


a_constraint 

: AConstraintNull[SDE_VIEW, SHOV;_GRAPH_TEXT_VIEW O::= "%t%n<constraint>%b"] 

1 AConstraint [SDE_VIB‘U SHOW_GRAPH_TEXT_VIB*J @ = "%t%nOPERATOR " 

@ /*id*/ 

error„header 

unconst ra ined_op_wi t h_cons t r a int s_jnsg 

invalid_time_constraint_msg 

unschedulable_periodic_msg 

unschedulable_sporadic_msg 

period_only_msg 

finish_within_only_msg 

mr t _on1y_ms g 

rocp_on1y_ms g 

error_trailer 

@ /*optional_trigger*/ 

@ /*optional_period*/ 

@ /*optional_finish_within*/ 

@ /*optional_mcp*/ 

@ /*optional_mrt*/ 

@ /*output_guards*/ 

@ /*exception_ops*/ 

@"%b*') /*t imer_operations*/ 

[BASEVIB'U SPEC_0NLY_VIB‘7, IMPL_ONLY_VIBJ @ ; : = "%t%nOPERATOR " 

@ /*id*/ 

@/*optional„trigger*/ 

@ /*optional_period*/ 

@/*optional_finish_within*/ 

@/* optional_mcp*/ 

<i / *opt iona l_mr t * / 

@/* out put_guards */ 

@/* exc eption_ops */ 

@"%b"]/*timer_operations*/ 


optional_trigger 

: OptionalTriggerNull tSDE_VIEV7, SHOV?_GRAPH_TEXT_VIEW @ ] 

I Opt iona 1 Tri gger Prompt [ SDE„VI B-J, SHOV/_GRAPH_TEXT_VI B*J @ : : = “ % t %n [ opt iona 1 


trigger]%b"] 

I OptionalTriggerAllOrSome 

[SDE_VIB‘J, SHOW_GRAPH_TEXT_VIEW, BASEVIB*/, SPEC_ONLY_VIEV/, 
IMPL_ONLY„VIEV; : = "%t%nTRIGGERED BY " 

@ "%t%n"/*type_.of„trigger*/ 

0 /*id_list*/ 

@ /*opt_if„predicate*/ 

@ ’’%b%b" ]/*reqmts_trace*/ 

I OptionalIfExp[SDE_VIEV/, SHOV/_GRAPH_TEXT_VIEV/, BASEVIBU SPEC_ONLY_VIB'U 
IMPL_ONLY_VIEW @%t%nTRIGGERED IF%t%n" 

@ “%b%b"]/*reqmts_trace*/ 


type_of_trigger 

: Tr iggerNul 1 [ SDE_VIEW, SH0V7_GRAPH_TEXT_VI EVJ @ “<t rigger type>" ] 

I TriggerAll [SDEJVIEW, SHOVL_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY„VIEW @::="ALL"] 

I TriggerSome(SDE_VIEW, SHOW_GRAPH_TEXT_VIBV, BASEVIEV/^ SPEC_ONLY_VIB*^ 
IMPL_ONLY_VIEW @="SOME"] 


optional_period 

; Op t Per iodNu 11 [ SDE_VI EV;, SHOV/_GRA PH_TEXT„VI EV7 @ : : = ] 

I OptPeriodPrompt (SDE_VIB-/, SHOW_GRAPH_TEXT_VIBr/ (i ="%t%n [opt iona 1 period] %b"] 
I Opt Period [SDE_VIEV;, SH0V7_GRAPH_TEXT_VIEW, BASEVIB*7/ SPEC_ONLY__VIB‘;, 
IMPL_ONLY_VIEW @=«%t%nPERIOD " 

@ /*time*/ 

"%t" @/*reqmts_trace*/ 

"%b%b"] 


optiona1_ finish_within 

: OptFinishV/ithinNull [SDE_VIB‘7, SHOW_GRAPH_TEXT_VIB^r @ : ; =] 

I OptFinishV/ithinProropt [SDE_VIEW, SHOV;_GRAPH_TEXT_VIEW 0; : = "%t%n[optional finish 
within]%b"] 

I 0ptFinishV/ithin[SDE_VIB‘7, SHOW_GRAPH_TEXT_VIEW, BASEVIB‘7, SPEC_ONLY_VIB*7, 
IMPL_ONLY_VIEW 0::="%t%nFINISH " 

0 /*time*/ 

"%t“ @/*reqmts„trace*/ 

"%b%b"] 


optional_mcp 

; OptMcpNull [SDE_VIEW, SHOW„GRAPH_TEXT_VIEW @ ) 

1 OptMcpPrompt [SDE_VIEW, SH0V7_GRAPH_TEXT_VIEW @ :; = "%t%n[optional Min. Calling 
Period]%b"] 

I OptMcp[SDE_VIEW, SHOW__GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW 0::="%t%nMINIMUM CALLING PERIOD " 

@/*time*/ 

“%t" 0 "%b%b'']/*reqmts_trace*/ 


optional_mrt 

! OptMrtNull [SDE_VIEW, SH0V7_GRAPH„TEXT_VIEW @ : : = ] 

I OptMrtPrompt [SDE_VIEW, SHOW_GRAPH_TEXT__VIEW 0: : = "%t%n[optional Max. Resp, Time]%b“3 
I OptMrt[SDE„VIEW, SH0W_GRAPH_TEXT_VIEV7, BASEVIEW, SPEC_ONLY_VIEW, 

IMPL_0NLY„VIEW 0;;=t%nMAXIHUM RESPONSE TIME " 

@/*time*/ 

“%t" 0 "%b%b"]/*reqmts_trace*/ 
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output_guards 

: OutputGuardsNil[SDE_VIEW, SHOV;_GRAPH_TEXT_VIEW @ ] 

( OutputGuardsPair[SDE_VIB*J, SHOV/_GRAPH_TEXT_VIB‘;, BASEVIEW, SPEC_ONLY_VIB*J, 
IMPL_ONLY_VIB*; @ ^ “ %n " ] @3 

a_guard 

: AGuardNull[SDE_VIB^^, SHOW_GRAPH_TEXT_VIEV7 @ "%t%n [output guard] %b"] 

} AGuard[SDE„VIB*/, SHOW_GRAPH_TEXT_VIEW, BASEVIB-/, SPEC„ONLY_VIEVJ, 
IMPL_ONLY_VIB'; @ “ %t %nOUTPUT" 

"%t%n-@/*id_list*/ 

"%nIF ©/*c_expression*/ 

@ '*%b%b"]/*reqmts_trace*/ 

exception_ops 

: ExceptionOpsNul 1 [SDE__VIB-J, SHOW_GRAPH_TEXT_VIB*/ 

I ExceptionOpsPrompt (SDE_VIB^. SHOW_GRAPH_TEXT_VIB‘/ ^ " %t %n [opt ional 

exceptions]%b"] 

I Exception tSDE_VIEW, SHOV;_GRAPH_TEXT_VIEV/, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIB*7 ^::= @] 


ex ception_option s 

: ExceptionOptionsNil[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW @;:=] 

I ExceptionOptionsPair[SDE„VIB‘/, SHOW_GRAPH_TEXT_VIB-/, BASEVIB*^ SPEC_ONLY_VIB*;, 
IMPL_ONLY_VIEW@:;= ^ ["%n''] Q] 


an_Gxception 

: AnExceptionNull [SDE_VIEW, SHOW_GRAPH_TEXT_VIEW ": : ='•%t%n<an exception>%b" ] 
i AnException[SDE_VIEV/, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL„ONLY_VIB^r ^ " %t %nEXCEPTION " 

©/*id*/ 

"%t " ©/*optional_if_predicate*/ 

@ "%b%b“]/*reqmts_trace*/ 

timer_operations 

; TimerOperat ionsNi 1 [ SDE_VI EW, SHOW_GRAPH_TEXT_VIB*; @ } 

I TimerOperationsPair[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIB^? @ ^ [ “ %n " ] @ ] 


a_timer_operation 

: ATimerOperationNull [SDE_VIEW, SHOW_GRAPH_TEXT_VIEW = nt%n [timer operation] %b" ] 
I ATimerReset[SDE_VIEW, SHOV/_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW ■'%t%nRESET " @ /*id*/ 

"%t" @/*optional_if_predicate*/ 

© ''%b%b" ]/*reqmts_trace*/ 

I ATimerStart [SDE_VIEW, SHOV/_GRAPH_TEXT_VIEW, BASE\aEW, SPEC_ONLY_VIEW, 
IMPLjONLY_VIB/ @:;= "%t%nSTART " 

© /*id*/ 

*‘%t“ ©/*optional_if_predicate*/ 

© ''%b%b" ]/*reqmts_trace*/ 

! ATimerStop[SDE_VIB‘J, SHOVJ_GRAPH_TEXT_VIB*J, BASEVIBi/, SPEC_ONLY_VIBJ, 
IMPL_ONLY_VIB‘/ ©::= "%t%nSTOP " 

© /*id*/ 

"%t" @/*optional_if_prGdicate*/ 

© "%b%b"]/*reqmts_trace*/ 


optional_if_predicate 

; OptlfPredicateNull [SDE_VIE’W, SHOVJ_GRAPH_TEXT_VIEV7 © : : = ] 

I OptlfPredicatePrompt(SDE_VIEW, SHOV7_GRAPH_TEXT_VIEW ©:;=“%n[optional IF 
predicate]"] 

I OptIfPredicate[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW ©::= ■■%nIF " 

©]/*c_expression*/ 


/* Conditionals for IF expressions */ 
c_initial_args 

: CInitialArgsNil[SDE_VIB-;, SHOW_GRAPH_TEXT_VIEV/ © : : =] 

I CInitialArgs[SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW ©::= C"%n"] © ] 


c_an_argument 

: CAnArgNil[SDE_VIB*;, SH0V^_GRAPH_TEXT_VIB*7, BASEVIEW, SPEC_ONLY_VIB'J, 
IMPL_ONLY_VIEW ©::="<initial argumGnt>”] 

I CAnArgument [SDE_VIB*/, SHOV;_GRAPH_TEXT__VIEV/, BASEVIB*/, SPEC_ONLY_VIB‘7, 
IMPL_ONLY_VIEW “ (%t%n’' © '■%b%n)"] 

c_expression_list 

: ClnitialExpListNil[SDE_VIEW, SHOV/_GRAPH_TEXT_VIEW ©::=] 

I ClnitialExpListPair[SDE_VIB‘J, SHOW_GRAPH_TEXT_VIB*/, BASEVIEV7, SPEC_ONLY_VIB‘7, 
IMPL_ONLY_VIEW ©:;= ^ [",%n"] ©] 


c_expression 

: CExpNull[SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW © : : ='•<GXp>" ] 

1 CIdentifier[SDE_VIEVJ, SHOV7_GRAPH_TEXT_VIB*7, BASEVIEV7, SPEC_ONLY_VIB*;, 
IMPL_ONLY_VIEW ©:;= ©] 

I CTextual_Description(SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW © : : = " \ \ ] 

I CTypeExpression(SDE_VIB'7, SHOV7_GRAPH_TEXT_VIEV7, BASEVIB*;, SPEC_ONLY_VIEV7, 
IMPL_ONLY_VIEW ©;:= © “." © © ] 

) CTimeExpression[SDE_VIB-7, SHOW_GRAPH_TEXT_VIB-7, BASEVIB*/, SPEC_ONLY_VIB‘7, 
IMPL_ONLY_VIEW ©::= @] 

I CParenthesizedExp [SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 

IMPL_ONLY_VIEW ©::= "{“ © “)"J 

/* BOOLEAN EXPRESSIONS */ 

i CTrue[SDE_VIB-7, SHOV7_GRAPH_TEXT_VIEVJ, BASEVIB*/, SPEC_ONLY_VIEV7, 

IMP L_ONLY_VIEW ©:: = "TRUE"] 

I CFalse[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY„VIEW, 

IMPL_ONLY_VIEW ©:;="FALSE"] 

I CNotExp[SDE_VIB^7, SH0W_GRAPH_TEXT__VIB*7, BASEVIEW, SPEC_ONLY_VIB‘7, 

IMPL_ONLY_VIEW ©::=" NOT " @] 

1 CEqualExp[SDE_VIB‘7, SH0V7_GRAPH_TEXT_VIEW, BASEVIB-/, SPEC_0NLY_VIB*7, 
IMPL_ONLY_VIEW ©::=© " = " @] 

I CLessExp(SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BAS^IEW, SPEC_ONLY_VIEW, 

IMPL_ONLY_VIEW ©::=© " < " @] 

I CGreaterExp[SDE_VIB'7, SH0W_GRAPH_TEXT_VIEV7, BASEVIEV/, SPEC_ONLY_VIB-/, 
IMPL_ONLY_VIEW ©::=© " > " @J 

I CGreatEqualExp[SDE_VIEW, SHOV/_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_0NLY_VIEW, 
IMPL_ONLY_VIEW ©::=@ " >= - @] 

I CLessEqualExp[SDE_VIB-7, SHOW_GRAPH_TEXT_VIEW, BASEVIB/, SPEC„ONLY_VIEV/, 
IMPL_ONLY_VIEW ©::=@ " <= " @] 

! CNotEquivExp[SDE_VIEW, SHOV/_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
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IMPL_ONLY_VIB‘; @ : =@ “ /= " @1 

! CAndExp[SDE_VIEW, SHOVJ_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEVJ 0: : =@ " AND " @] 

I COrExp[SDE_VIB*^ SH0W_GRAPH_TEXT„VIE;-J, BASEVIEIV, SPEC„ONLY_VIE7^7, 
IMPL_ONLY_VIEW @:=@ " OR " 0] 

I CXorExp[SDE_VIEVJ, SHOW_GRAPH_TEXT_VIEVJ, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW 0::=0 " XOR " 0] 

/* INTEGER EXPRESSIONS */ 

I CInteger(SDE_VIEW, SHOW„GRAPH_TEXT_VIEVU BASEVIEW, SPEC_ONLY_VIB*/, 
IMPL_ONLY_VIEW 0::=^] 

I CReal[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEV; 0::="' " . " 

I CPlusExp[SDE_VIEV;, SHOW_GRAPH_TEXT„VIEV7, BASEVIEVI, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW @: :=0 " + “ @1 

1 CMinusExp[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL„ONLY_VIEW 0::=0 " - " 0] 

I CTiniesExptSDE_VIEW, SHOW_GRAPH_TEXT_.VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEl^ 0; ; =0 " * " @] 

I CDivExp(SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW 0::=0 ” / " 0] 

I CNegativeExp[SDE_VIEV/, SHOW_GRAPH_TEXT_VIB*7, BASEVIE>7, SPEC_ONLY_VIEV7, 
IMPL_ONLY_VIEW @::=" - " 0] 

I CPositiveExp[SDE_VIEV/, SHOV7_GRAPH_TEXT_VIB‘7, BASEVIEW, SPEC_ONLY_VIB*7, 
IMPL_ONLY_VIEW @::=" + " 0] 

I CAbsExp[SDE_VIEW, SHOW_GRAPH„TEXT_VIEW, BASEVIEW, SPEC_ONLY„VIEW, 
IMPL_ONLY_VIEW 0::="ABS(" 0 ") " 1 

I CRGmExp[SDE_VIEW, SHOV7_GRAPH„TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIEW 0::=0 " rem " @1 

I CModExp[SDE_VIEW, SHOW„GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_ONLY_VIB-7 0; : =0 " mod " 0] 

I CExponent Exp (SDE_VIEV7, SHOW_GRAPH_TEXT_VIB'7, BASEVIEW, SPEC_ONLY_VIB*7, 

IMPL_ONLY_VIEV^^ 0: : =0 “ ** " 0] 

/* STRING EXPRESSIONS */ 

1 CConcatExp[SDE_VIE^7, SHOW_GRAPH_TEXT_VIEW, BASEVIEV7, SPEC_ONLY_VIB*7, 
IMPL_ONLY_VIEV^ 0; ; =0 " & “ @1 


/* -IdSet -*/ 

IdSet 

: IdSetNil[SDE_VIEW, SHOW_GRAPH_TEXT_VIEV7 0:] 

I IdSetPair[SDE_VIB*7, SHOV7_GRAPH_TEXT_VIB‘7 @ , %n 


/*-OpIdSet -*/ 

OpIdSet 

; OpIdSetNil[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW 0:) 

1 OpIdSetPair[SDE_VIEW, SHOW_GRAPH_TEXT_VIB‘7 ” 0 [" , 


/*-unformatted text -*/ 

commentLines 

: CommentLinesNil[SDE_VIEW, SHOW__GRAPH_TEXT_VIEW 0:] 

! Comment LinesPairtSDE_VIEV7, SHOW_GRAPH_TEXT_VIB-7, BASEVIEV7, SPEC_ONLY_VIEt'7, 
IMPL_ONLY_VIB'7 0 ; ; =-^ [" %n *' ] @) 


commentLine 

: CommentLineNil{SDE__VIEW, SHOW_GRAPH_TEXT_VIEV7 ^: "<unformatted text>”] 
I CommentLine[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW, BASEVIEW, SPEC_ONLY_VIEW, 
IMPL_0NLY_VIB*7 


^****************** 

optiona1Comment 

: 0ptionalCommentNil[SDE_VIEl*7, SHOW_GRAPH_TEXT_VIE\*7 

1 OptionalCommentPrompt[SDE_VIEW, SHOW_GRAPH_TEXT_VIEW 0::="<unformatted text>"] 
I OptionalCommenttSDEJVIEW, SHOW_GRAPH_TEXT_VIEW 0::("0")"1 

******************** f 




%n"l@l 
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transform component 

on “Type"<component>:Data{ 
<id>, 

<type_spec>, 

<type„impl> 

) / 

on "Operator" <component>;Op( 
<id>, 

< oper a t or„spec>, 
<operator_impl> 

) 


transform type_spec 

on "TypeSpec" <type_spec>rTypeSpec( 

< o_gene ric_pa rams>, 

< o_t y pe_dec1s >, 
<o_operators>, 
<o_keywords>, 
<o_informal_descs>, 
<o_formal_descs> 

) 


transform o_generic„params 

on "Generic" <o_generic_params>:Generic{ 
<type_declarations> 

) 


} 


transform o_formal_descs 
on ''Formal_Descriptions'' 

<o_formal_descs>: FormalDescs{ 
<commentLines> 

) 


transform operator_spec 

on "Operator"<operator_spec>: OperatorSpec{ 
<o_generics_list>, 

<o_input s_list>/ 

<o_outputs_list>, 

<o_states_list>, 

<o_exc eption s_lis t >, 

<o_timing_info>/ 

<o_kGywords>, 

<o_in f orma1_desc s>, 

<o_ f ormal_desc s> 

) 


transform o_generics 
on "OptionalGenerics" 

<o_generics>;OpGenerics( 
<typG_dGclarations>, 
<reqmt s_t race> 

) 


transform o_type_d€cls 

on "Type"<o_type_decls>;Type{ 
<type_declarations> 

) 


transform t_oper_spec 

on "Operators"<t_oper_spGC>:TOpSpec{ 
<id>, 

<operator_spec> 

) 


transform time_unit 

on •'MICROSEC"<time_unit>: UnitMICROSECONDS () , 
on "MS"<time_unit>: UnitMS{}, 
on "SECONDS"<tirae_unit>: UnitSEC(), 
on "MINtITES“<time_unit>: UnitMINO^ 
on "HOURS" <time_unit>: UnitHOURS{) 


transform o_keywords 

on "Keywords" <o_keywords>: KeyV/ords ( 
<alone_id_list> 

) 


transform o_informal_descs 

on "Informal_Descriptions"<o_informal_d€scs>: InformalDescs{ 
<coinmentLines> 


transform o„inputs 
on "OptionalInputs" 

<o_input s>; Opinput s( 

<type_declarations>, 
<reqmt s_trace> 

) 


transform o_outputs 
on "OptionalOutputs" 

<o_outputs>: OpOutputs( 
<type_declarations>, 
<reqmts_trace> 

) 


transform o_states 
on "OptionalStates" 

<o_states>; OpStates{ 

<type_declarations>, 
<expression_list >, 
<reqmts_trace> 

) 


transform an„argument 
on "Exp_Argument" 

<an_argumGnt>: AnArgument( 
<exprGssion_list > 

) 
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transform o_exceptions 
on "Optional_Exceptions" 

<o__exceptions>: OpExceptions( 
<alonG_id_list>, 

< recynt s_t race> 

) 


on "EXCEPTION" <decl_tYpe_name>; DTypeSimpleId{Id{"PSDL_EXCEPTION")), 
on "User_Def ined" 

<decl_type_name>: DTypeUserDefined( 

<id>, 

<bracket_type_declarations> 

) / 

on "REAL"<decl_type_name>: DTypeReal() 


transform o_timing_info 
on "Optional_Timing„Info" 

<o_timing_info>: OpTimingInfo( 
<time>, 

<rGqmts_trace> 

) 


transform time 

on "Time_Expression" 
<time>: Time{ 
<integer>/ 

<time_unit> 

) 


transform reqmts_tracG 
on "ReqmtsTrace" 

<reqmts_trace>: ReqmtsTrace( 
<alonG_id_list> 

) 


/* 

-type declaration TRANSFORMATIONS 


*/ 


transform o_brackGt_type_declarations 
on "[Type Declarations]" 

<o_bracket_type_declarations>lOBTypeDeclaration{ 
< type_dec1a ra ti on s> 

) 


t rans form bracket_type_dGclarations 
on '"lype Declarations" 

<bracket_type_declarations>:BTypeDeclaration( 
<type_declarations> 

) 


/* 

- EXPRESSION TEMPLATE TRANSFORMATIONS 

*/ 

transform expression 

on "Ident“<Gxpression>: Identifier(<id>), 
on "TypeExpresion" 

<expression>: lypeExpression( 

<type_name>/ 

<id>, 

<initial_args> 

} , 


on "Textual"<expression>: Textual_Description(<commentLines>), 

/* 

on "Textual'‘<expression>; Textual_Description{<string_lit>) ^ 

*/ 


transform a_decl 

on "DeclList"<a_decl>:ADecl( 
<id_list>/ 

<decl_type_name> 

) 


transform type_name 

on "TypeName"<type_name>: TypeName( 
<id>, 

<o_bracket_type_declarations> 

) 


transform decl_type„name 

on " INTEGER''<decl_typG_namG>; DTypelnteger () / 
on "FLOAT"<decl_type_name>; Diyp^Simpleld(Id{"FLOAT")), 
on "BOOLEAN"<decl_type_name>: DTypeBooleanO^ 

/* 

on "EXCEPTION"<decl_type_name>: DTypeException(), 

*/ 


on "{<expression>)" 

<expression>: ParenthesizedExp{<exprGssion>), 

/* boolean_expression */ 

on "And"<expression>: AndExp( 

<expression>/ 

<expression> 

) . 

on "Or"<expression>: OrExp( 

<expression>/ 

<expression> 

} , 

on "Xor"<expression>: XorExp( 

<expression>, 

<expression> 

on "True"<expression>: TrueO, 
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on “False"<expression>: False(), 

on "Not"<expression>: NotExp( 

<expression> 

on "="<expression>: EqualExp( 

<expression>, 

<expression> 

on "<"<expression>: LessExp( 

<expression>, 

<expression> 

), 

on ">"<expression>: GreaterExp( 

<expression>, 

<expression> 

on ''>=“<expression>; GreatEqualExp ( 

<expression>/ 

<expression> 

on "<="<expression>: LessEqualExp{ 

<exprGssion >, 

<expression> 

), 

on "/="<expression>; NotEquivExp( 

<expression>, 

<expression> 

/* arithmetic_expression */ 

on "Integer"<expression>: Integer{<integer>), 

on "Real"<expression>: Real(<integer>, <integer>)/ 

on "+"<expression>; PlusExp{ 

<expression>, 

<expression> 

on "<expression>: MinusExp( 

<expression>/ 

<expression> 

)/ 

on "*"<exprGssion>: TimesExp( 

<expression>/ 

<expression> 

on "/"<expression>: DivExp{ 

<expression>, 

<expression> 


on "Negative"<GxprGssion>: NegativeExp( 
<expression> 

) . 

on "Mod"<expression>: ModExp( 
<Gxpression>, 

<expression> 

) , 

on "Rem“<expression>: ReniExp( 
<expression>/ 

<expression> 

) , 

on "**“<expression>: ExponentExp{ 
<expression>, 

<expression> 

)/ 

/* string expressions */ 

on "&"<Gxpression>: ConeatExp( 
<expression>, 

<exprGssion> 

) 


/♦TEMPLATE TRANSFORMATIONS FOR NB*/ PRODUCTIONS 
*/ 

transform type_impl 

on "Ada_Implementation" 

<type_impl>:GGt_Ada_TypQ—() / 

/* 

<id> 

) , 

*/ 

on "PSDL_Implementation" 

<typG_impl>:'iypeImpl ( 

<type„name>, 

<opera tor_impl_list > 

) 


transform t_op_impl 
on “Operator_Impl" 

<t_op_impl>:TOpImpl( 

<id>, 

<operator_impl> 

) 


transform operator_impl 

on "Ada_Implementation"<operator_impl>iGet^da_< 

/* 

<id> 

*/ 

on "PSDL_Implementation" 

<operator_impl>:OperatorImpl{ 

<graph>, 

<declarations>. 


)_Impl {) , 
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<cc> 


) 


transform graph 
/* 

on "Graph-Edit" <graph>:Edit_Graph()^ 

on "Graph-Edit" Graph{vertex_list, edge_list);Edit_Graph(), 

*/ 


on "Graph-Decl"<graph> when (Is_Show__Graph_Text_View()} 
:Graph( 

<vertex_list>/ 

<edge_list> 

) 


transform a_vertex 

on "Vertex"<a_vertex>:Avertex( 
<operator_id>, 
<optional_time> 

) 


transform from_vertex_id 

on "Vertex_ID“<fronL_vertex_id>;FVertexId( 
<optional_type_id>, 

<id>, 

<operator„id_pairs> 

) 


transform to_vertex_id 

on '‘Vertex_ID"<to_vertex_id> :TVertexId( 
<optional_type_id >, 

<id>, 

<operator_id_pairs> 

} 


transform declarations 
on "Declarations" 

<declarations>:Declarations( 
<optional_st reams >, 

<optional„timers> 

) 


transform operator_id 
on "Operator_IDs" 

<operator_id>;OperatorId( 
<optional_type_id>, 
<id>, 

<operator_id_pairs> 

) 


transform operator_id_pairs 
on "OperatorPairs" 

<operator_id_pairs>:OperatorIdPairs( 
<a1one_id_list >, 
<alone_id_list> 

} 


transform optional_time 

on "TimeEnt ry"<option a1_time>:Optiona1Time( 
<time> 

) 


transform an_edge 

on "EdgeEntry"<an_edge>:AnEdge( 
<id>, 

<latency_time>, 

< from„vertex_id>, 
<to_vertGx_id> 

) 


transform latency_tiine 

on "LatencyTime" <1atency_time>:LatencyTime( 
<t ime> 

) 


transform optional„streams 

on "Streams"<optional_streams>;Streams( 
<type_declarations> 

) 


transform optional_timers 

on "Timers"<optional_timers>;Timers( 
<alone_id_list> 

) 


transform cc 

on "ControlConstraints" 

<cc>:Cc{ 

<constraints>, 

<o_informal_descs> 

) 

transform a_constraint 
on "A_Constraint" 

<a_constraint>:AConstraint( 
<ope ra t or_id>, 
<optional_trigger>, 

<optional_period>, 

<opt ional_f inish_v/ithin>, 
<optional_mcp>/ 

<optional_mrt>, 
<output_guards>, 

<exc ep tion_ops >, 

<timer_operations> 

) 


transform optional_trigger 
on "ALL/SOME-Trigger" 

<optional_triggGr>:OptionalTriggerAllOrSome( 
<type_of_t rigger>, 

<alone_id_list>. 
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<optional_if_predicate>/ 

<reqmts_t race> 

)r 

on "IF-Expression" 

<optiona1_t rigger>:Optiona11f Exp( 
<expression>, 

<reqmts_trace> 

) 

transform typG_of_trigger 

on "ALL-Trigger"<typG_of_trigger>:TriggerAll(), 
on "SOME-Trigger"<type_of_trigger>;TriggerSome() 


transform optional_period 

on "Optional_PGriod"<optional„period>:OptPeriod( 
<time>, 

<reqmts_trace> 

) 


transform optional_finish_within 
on "FinishV/ithin" 

<optional_finish_within>:OptFinishWithin{ 
ctime>/ 

<reqmts_trace> 

) 


transform optional_jnrt 
on "MaxRespTime" 

<optional_mrt>:OptMrt( 
<time>, 

<reqmt s_trace> 

) 

transform optionaljncp 
on "MinCallPeriod" 

<optional_mcp>;OptMcp{ 
<time>, 

<rGqmts_trace> 

) 


transform a_guard 
on "OutputGuard" 

<a_guard>:AGuard( 

<alone_id_list>/ 
<c__expression>/ 
<reqmts_trace> 

) 


transform exception_ops 

on "Exception"<exception_ops>:Exception( 
<exception_options> 

) 


transform an_exception 
on “AnException" 


<an_exception>:AnException( 
<id>, 

<optional_if_predicate>, 
< reqmt s_t race> 

) 


transform a_timer_operation 

on "Reset"<a_timer_operation>;ATimerReset{ 
<id>, 

<optional_if_predicate>, 

<reqmt s_t race> 

). 

on "Stop"<a_timer_operation> zATimerStop( 
<id>, 

<optional_if_predicate>, 
<rGqmts_trace> 

on "Start"<a_timer_operation>:ATimerStart( 
<id>, 

<optional_if_predicatG>, 

< reqmt s_t ra c e> 

) 


transform optional_if_predicate 
on "Expression" 

<opt iona l__i f _predi ca t e>; Opt I f Predi ca te ( 
<c_expression> 

) 


/*transform if_expression 
on "IfExpression" 

<if_expression>:IfExpression( 

<c_expression> 

) 

*/ 

transform c_expression 

on "Identifier"<c_exprGssion>: Cldentifier(<id>}, 
on “TypeExpresion" 

<c_expression>: CTypeExpression{ 

<type_name>, 

<id>^ 

/* 

<c_expression_list> 

*/ 

<c_initial_args> 

on "Textual"<c_expression>; 

CTextual_Description(<commentLines>), 

/* 

on "Text ua1"<c_expression>: 

CTextual_Description(<string_lit>), 

*/ 


on "Time“<c_expression>: CTimeExpression{<time>), 
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on "(<c_expression>)" 

<c_expression>: CParenthesizedExp{<c_expression>), 

/* c_boolean_expression */ 

on "True”<c_expression>; CTrueO, 

on ”False’'<c_expression>: CFalse(), 

on "Not“<c_expression>: CNotExp( 

<c„expression> 

on "="<c_expression>; CEqualExp( 

<c_expression>, 

<c_expression> 

on "<"<c_Gxpression>: CLessExp( 

<c_expression>, 

<c_expression> 

on ">"<c_expression>; CGreatGrExp( 

<c_Gxpression>, 

<c_expression> 

on ">="<c_expression>: CGreatEqualExp( 

<c_expression>, 

<c_expression> 

on "<="<c_expression>: CLessEqualExp( 

<c_expression>, 

<c_expression> 

on "/="<c_expression>: CNotEquivExp( 

<c_expression>, 

<c_expression> 

), 

on "And"<c_expression>: CAndExp{ 

<c_expression>, 

<c_Gxpression> 

on "Or''<c_Gxpression> : COrExp ( 

<c_GxprGssion>/ 

<c_exprGssion> 

on "Xor"<c_expression>: CXorExp{ 

<c_Gxpression>, 

<c_GxprGssion> 

)/ 

/* c_arithmGtic„Gxpression */ 

on "Integer"<c_GXprGssion>: CInteger(<integer>), 
on "Real "<c_Gxpression> : CReal 


{<integGr>, <integer>}, 

on "+"<c_expression>: CPlusExp( 
<c_exprGssion>/ 

<c_expression> 

) . 

on "<c_Gxpression>: CMinusExp( 
<c_expression>, 

<c_expression> 

on ** * "<c„GXpression> ; CTiinesExp( 
<c_expression>, 

<c_expression> 

), 

on "/"<c_expression>: CDivExp{ 
<c_expression>, 

<c_expression> 

on "Negative"<c_expression>: CNegativeExpC 
<c_expression> 

), 

on "Mod"<c_Gxpression>: CModExp( 
<c_expression>, 

<c_expression> 

) , 

on "Rem"<c_expression>: CRemExp( 
<c_Gxpression>, 

<c_expression> 

)/ 

on "**“<c_expression>: CExponentExp( 
<c_expression>/ 

<c_expression> 

/* string expressions */ 

on "&"<c_exprGssion>: CConcatExp( 
<c_expression>, 

<c_exprGssion> 

) 


transform c„an_argumGnt 
on "C_Exp_Argument" 

<c_an_argument >; CAnArgument( 
<c_exprGssion_list > 

) 
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PROTOTYPE{synthesized prototype t;}; 
PSDL_COMPONENTS{ 

synthesized psdl_components reversed; 

); 

COMPONENT{synthesized component t;); 

ID {synthesized id t;}; 

INTEGER{synthesized integer t/); 

TYPE_SPEC{synthesized type_spec t;); 

0_GENERIC_PARAMS{synthesized o_generic_params t;); 


TYPE_DECLARATIONS 
{ 

inherited type_declarations tail; 
synthesized type_declarations reversed; 

); 


A_DECL {synthesized a_decl t;}; 

TYPE_NAME{synthesized type_name t;); 

DECL_TYPE_NAME(synthesized decl_type_name t;}; 

BRAG KE T_TY PE_DEC LA RATIONS 

{synthesized bracket_type_declarations t;}; 

0_BRACKET_TYPE_DECLARATIONS 

{synthesized o_bracket_type_declarations t;}; 

ALONE_ID_LIST{ 

inherited alone_id_list tail; 
synthesized alone_id_list reversed; 

}; 

ID_LIST { 

inherited id_list tail; 
synthesized id_list reversed; 

}; 


0_TYPE_DECLS{synthesized o_type_decls t;}; 
0_0PERAT0RS{ 

inherited o_operators tail; 
synthesized o_operators reversed; 

); 

T_OPER_SPEC{synthesized t_oper„spec t;); 
OPERATOR„SPEC{synthesized operator_spec t;); 

0_G ENERICS_LIS T{ 

inherited o_generics_list tail; 
synthesized o_generics_list reversed; 
}; 

0_GENERICS{synthesized o_generics t;}; 
0_INPUTS_LIST{ 

inherited o_inputs_list tail; 
synthesized o_inputs_list reversed; 

}; 


0_INPUTS{ synthesi zed o__inputs t;); 

0„OUTPUTS_LIST( 

inherited o_outputs_list tail; 
synthesized o_outputs_list reversed; 

) ; 

0_0UTPUTS{synthesized o_outputs t;); 

0_EXCEPTI0NS_LIST( 

inherited o_exceptions_list tail; 
synthesized o„exceptions_list reversed; 
); 

0_EXCEPTIONS{synthesized o_exceptions t;}; 

0_TIMING_INFO{synthesized o_timing_info t;); 
TIME_UNIT{synthesized time_unit t;); 

TIME {synthesized time t;}; 

0„STATES_LIST( 

inherited o_states_list tail; 
synthesized o_states_list reversed; 

); 

0_STATES{synthesized o_states t;); 


INITIAL_ARGS{ 

inherited initial_args tail; 
synthesized initial_args reversed; 

); 

AN_ARGUMENT{synthesized an_argument t;}; 
C_INITIAL_ARGS{ 

inherited c_initial_args tail; 
synthesized c_initial_args reversed; 

); 

C_AN_ARGUMENT{ synthesi zed c_an_arguinent t;); 

EXPRESSION_LIST{ 

inherited expression_list tail; 
synthesized expression_list reversed; 

}; 

EXPRESSION{synthesized expression t;); 

C„EXPRESSION_LIST{ 

inherited c_expression_list tail; 
synthesized c_expression_list reversed; 

); 

C_EXPRESSI0N{synthesized c_expression t;); 

0_KEYW0RDS{synthesized o_keywords t;); 
0_INF0RMAL_DESCS{synthesized o_informal_descs t;); 
0_F0RMAL„DESCS{synthesized o_formal_descs t;}; 
REQMTS_TRACE{synthesized reqmts_trace t;); 

/*NEVJ CONCRETE INPUT SYMBOLS 
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TYPE_IMPL{synthesized type_impl t;}; 

OPERATOR_IMPL{synthesized operator_impl t;); 

OPERATOR_IMPL_LIST{ 

inherited operator_impl_list tail; 
synthesized operator_impl_list reversed; 

}; 

GRAPH {synthesized graph t;}; 

DECLARATIONS(synthesized declarations t;); 

CC {synthesized cc t;); 

T_OP_IMPL{synthesized t„op_impl t;); 

VERTEX_LIST{ 

inherited vertex_list tail; 
synthesized vertex_list reversed; 

}; 

A_VERTEX{synthesized a_vertex t;); 

OPERATOR_ID{synthesized operator_id t;}; 

OPTIONAL_TYPE_ID{synthesized optional_type_id t;); 

OPERATOR_ID_PAIRS{synthesized opGrator_id_pairs t;}; 
OPTIONAL_TIME{synthesized optional_time t;); 

LATENCY_TIME{synthesized latency_time t;); 

EDGE_LIST{ 

inherited edge_list tail; 
synthesized edge_list reversed; 

); 

AN_EDGE {synthesized an_edge t;}; 

FROM_VERTEX_ID{synthesized from_vertex_id t;}; 

TO_VERTEX_ID{synt hesiz ed t o_vert ex_id t;}; 

OPTIONAL_STREAMS{synthesized optional_streams t;); 
OPTIONAL_TIMERS{synthesized optional_timers t;); 

CONSTRAINTS{inherited constraints tail; 

synthesized constraints reversed;}; 

A_CONSTRAINT{synthesized a_constraint t;); 

OPTIONAL_TRIGGER{synthesized optional_trigger t;); 
TYPE_OF_TRIGGER{synthesized type_of_trigger t;}; 
OPTIONAL_PERIOD{synthesized optional_period t;); 
OPTIONAL_FINISH_v;iTHIN{synthesized optional_finish_within t;}; 
OPTIONAL_MCP{synthesized optional„mcp t;}; 
OPTIONAL_MRT{synthesized optional_inrt t;}; 

OUTPUT_GUARDS{ 

inherited output_guards tail; 
synthesized output_guards reversed; 

}; 

A_GUARD{synt hesized a_guard t;}; 

EXCEPTION_OPS{synthesized exception_ops t;); 

EXCEPTION_OPTIONS{ 

inherited exception_options tail; 
synthesized exception_options reversed; 

>; 

AN_EXCEPTION{synthesized an_exception t;); 

TIMER_OPERATIONS(inherited timer_operations tail; 


synthesized timer_operations reversed;); 

A_TIMER_OPERATION{synthesized a_timer_operation t;); 
OPTIONAL_IF_PREDICATE{synthesized optional_if_predicate t;}; 


prototype- PROTOTYPE.t; 

psdl_components~ PSDL_COMPONENTS.reversed; 

component ~ COMPONENT.t; 

id - ID.t; 

integer- INTEGER.t; 

type_spec~ TYPE_SPEC.t; 

o_generic_params- 0_GENERIC_PARAMS.t; 

type_declarations- TYPE_DECLARATIONS.reversed 
{TYPE_DECLARATIONS.tail=TypeDeclNil;); 

a_decl - A_DECL.t; 

type_name- TYPE_NAME.t; 

decl_type_name- DECL_TYPE_NAME.t; 

bracket„type_declarations 

- BRACKET_TYPE_DECLARATIONS.t; 

o_bracket_type_declarations 

- 0_BRACKET_TYPE„DECLARATIONS,t; 


alone_id_list~ ALONE_ID_LIST.reversed 

{ALONE_ID_LIST.tail=AIdNil;}; 

id_list ~ ID_LIST.reversed 

{ID_LIST.tail=IdNil;}; 

o_type_decls- 0„TYPE_DECLS.t; 

O—operators- 0_0PERAT0RS.reversed 

{0_OPERAT0RS.tail=OperatorNil;); 

t_oper_spec- T_OPER_SPEC.t; 

operator_spec~ OPERATOR_SPEC.t; 

o_generics_list“ 0„GENERICS_LIST.reversed 

{0_GENERICS_LIST.tail=GenericsListNone;}; 

o_generics- 0_GENERICS.t; 

o_inputs_list~ 0_INPUTS_LIST.reversed 

{0_INPUTS_LIST. tail=:InputsListNonG; } ; 

o_inputs- 0_INPUTS.t; 

o_outputs_list~ 0_0UTPUTS_LIST.reversed 

{0_0UTPUTS_LIST.tail=0utputsListNone;); 

o_out put s~ 0_0UTPUTS,t; 

o_exceptions_list~ 0_EXCEPTI0NS_LIST. reversed 

{0_EXCEPTI0NS_LIST.tail=ExcListNone;) ; 

o_exceptions- 0_EXCEPTI0NS.t; 

o_t iming_info- 0_TIMING_INF0.t; 

time_unit- TIME_UNIT.t; 

time - TIME.t; 
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o„states_list~ 0_STATES_LIST.reversed 

{0_STATES„LIST,tail=StatesListNone;) ; 

o_states~ 0_STATES.t; 

an_argument-' AN^ARGUMENT. t ; 
c_an_argument ~ C_AN_ARGUMEMT.t; 

initial_args~ INITIAL_ARGS.reversed 

{INITIAL_ARGS.tail=InitialArgsNil;); 

c_initial_args~ C_INITIAL_ARGS.reversed 

{C_INITIAL^RGS.tail=CInitialArgsNil;) ; 

expression_list~ EXPRESSION_LIST.reversed 

{EXPRESSION_LIST. tail=InitialExpListNil;); 

expression- EXPRESSION.t; 

c_expression_list~ C_EXPRESSION_LIST.reversed 

{C_EXPRESSION_LIST.tail=CInitialExpListNil;); 
c_expression- C_EXPRESSION.t; 

o_keywords- 0_KEYW0RDS.t; 
o_in formal_descs~ 0_INF0RMAL_DESCS.t; 
o_formal__descs~ 0_F0RMAL_DESCS .t; 
reqmt s_t race- REQMTS_TRACE.t; 
type_impl- TYPE_IMPL.t; 
operator_impl~ OPERATOR_IMPL-t; 

operator_impl„list - OPERATOR_IMPL_LIST.reversed 

{OPERATOR_IMPL_LIST.tail=OpImplListNull;); 

graph ~ GRAPH.t; 

declarations- DECLARATIONS.t; 
cc - CC.t; 

t_op_iinpl - T_OP_IMPL.t; 

vertex_list- VERTEX_LIST.reversed 

{VERTEX_LIST.tail=VertexListNull;); 

a_vertex - A_VERTEX.t; 

operator_id - OPERATOR_ID.t; 

optional_type_id - OPTIONAL_TYPE_ID.t; 

operator_id_pairs - OPERATOR_ID_PAIRS.t; 

optional_time - OPTIONAL_TIME.t; 

latency_time- LATENCY_TIME.t; 

edge_list - EDGE_LIST-reversed 

{EDGE_LIST.tail=EdgeListNil;); 

an_edge - AN_EDGE.t; 

from_vertex_id~ FROM_VERTEX_ID.t; 
to_vertex_id~ TO_VERTEX„ID.t; 

optional_streams - OPTIONAL_STREAMS.t; 

optional_timers - OPTIONAL_TIMERS.t; 

constraints - CONSTRAINTS.reversed 

{CONSTRAINTS.tail=ConstraintsNull;}; 

a_constraint - A_CONSTRAINT.t; 

optional_trigger - OPTIONAL_TRIGGER.t; 

type_of_trigger~ TYPE_OF_TRIGGER.t; 


Concrete Rules 


optional_period - OPTIONAL_PERIOD.t; 

opt ional_finish_v/ithin - OPTIONAL„FINISH_WITHIN. t ; 

optional_mcp- OPTIONAL_MCP,t; 

optional_mrt - OPTIONAL_MRT.t; 

output_guards - OUTPUT_GUARDS.reversed 

{OUTPUT_GUARDS.tail=OutputGuardsNil;); 

a_guard- A_GUARD.t; 

exception_ops - EXCEPTION_OPS.t; 

exception_options - EXCEPTION_OPTIONS.reversed 

{EXCEPTION_OPTIONS.t ai1 = 
ExceptionOptionsNil;}; 

timer_operations - TIMER_OPERATIONS.reversed 

{TIMER_OPERATIONS.t ai1 = 

TimerOperationsNil;); 

a_timer_operation - A_TIMER_OPERATION.t; 

optional_if_predicate - OPTIONAL_IF_PREDICATE.t; 


/* ==================== PRECEDENCE DECLARATIONS ===================== */ 


left ANDKW ORKW XORKW; 

left '<• •>■ • = • GTEKW LTEKW NEQVKV/ 

left '+• 

left '*• •/' MODKW REMKW; 

left EXPKVJ ABSKW NOTKW; 


/*===================================================================*/ 


/* CONCRETE GRAMMAR'S PRODUCTIONS 
*/ 

PROTOTYPE 

::= {PSDL_COMPONENTS) 

( 

PROTOTYPE.t=Prot(PSDL_COMPONENTS.reversed) 

} 


PSDL_COMPONENTS 

::= (){PSDL_COMFOMENTS.reversed = PsdlNi1;) 
i (COMPONENT PSDL_COMPONENTS){ 

PSDL_COMPONENTS$l.reversed= 

COMPONENT.t::PSDL_COMPONENTS$2.reversed 

) 


COMPONENT 

:;= (TYPEKV/ ID TYPE_SPEC TYPE_IMPL) 
{COMPONENT.t = {Data{ 

ID.t, 

TYPE_SPEC. t, 

TYPE_IMPL,t 

) 

) ;) 
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(OPERATORKW ID OPERATOR„SPEC OPERATOR_IMPL) 
(COMPONENT.t = {Op( 

ID.t, 

OPERATOR_SPEC.t, 

OPERATOR_IMPL.t 

) 

);) 


ID::= (IDENTIFIER) 

(ID.t=Id(IDENTIFIER);) 


INTEGER (INTEGERS) 

{INTEGER.t=IntegerVal(INTEGERS);) 


TYPE_SPEC 

(SPECKW 

0_GENERIC_PARAMS 
0_TYPE_DECLS 
©.OPERATORS 
©.KEYWORDS 
O.INFORMAL.DESCS 
O.FORMAL.DESCS ENDKW) 
(©.OPERATORS.tail=OperatorNi1; 

TYPE.SPEC.t =TypeSpec( 
O.GENERIC.PARAMS.t, 
O.TYPE.DECLS.t, 
©.OPERATORS.reversed, 
O.KEYWORDS.t, 
O.INFORMAL.DESCS.t, 
O.FORMAL.DESCS.t 
);) 


O.GENERIC.PARAMS 

::= 0(O.GENERIC.PARAMS.t = (GenericNone);} 

I (GENERICKW TYPE.DECLARATIONS) 

(TYPE.DECLARATIONS . t ai 1 ='IVpeDeclNi 1 ; 
O.GENERIC.PARAMS.t=Generic( 

TYPE.DECLARATIONS.reversed 

) ;) 


TYPE.DECLARATIONS 
::= (A.DECL) 

(TYPE.DECLARATIONS.reversed=( 

A.DECL.t::TYPE.DECLARATIONS.tail 

);) 

I (TYPE.DECLARATIONS A.DECL) 

{TYPE.DECLARATIONS$2.tail=( 

A.DECL.t::TYPE.DECLARATIONS$l.tail 

) ; 

TYPE_DECLARATIONS$l.reversed= 
TYPE.DECLARATIONS$2.reversed; 

) 


A.DECL::= (ID.LIST DECL.TYPE.NAME) 

(ID.LIST.tail = IdNil; 

A.DECL.t = ADecl(ID.LIST.reversed, DECL.TYPE.NAME.t); 

) 


TYPE.NAME 

(ID O.BRACKET.TYPE.DECLARATIONS) 
(TYPE.NAME.t = TypeName{ 

ID.t, 

O.BRACKET.TYPE.DECLARATIONS,t 

) ;) 


DECL.TYPE.NAME 

(INTKW) 

(DECL.TYPE.NAME. t = DTVpeInteger () ; ) 

I (REALKW) 

(DECL.TYPE.NAME.t = DiypeReal () ; } 

I (BOOLKW) 

(DECL.TYPE.NAME. t = DiypeBoolean () ;) 

I (ID) 

(DECL.TYPE.NAME. t = DiypeSimpleld (ID.t);) 

I (ID BRACKET.TYPE.DECLARATIONS) 

(DECL.TYPE.NAME. t = DiypeUserDe fined ( 
ID.t, 

BRACKET.TYPE.DECLARATIONS.t);} 


BRACKET.TYPE.DECLARATIONS 

::= (■[' TYPE.DECLARATIONS ')') 

(TY PE.DEC LARATIONS .tail =TypeDec 1 Ni 1 ; 
BRACKET.TYPE.DECLARATIONS. t = 
BTypeDeclarat ion( 

TYPE.DECLARATIONS.reversed 

) ;} 


O.BRACKET.TYPE.DECLARATIONS 

: : = 0 (O.BRACKET.TYPE.DECLARATIONS . t = OBTypeNone() ; ) 
I (’ (• TYPE.DECLARATIONS '] ’) 

{TYPE.DEC LARATIONS .tail =TypeDec INi 1 ; 
O.BRACKET.TYPE.DECLARATIONS. t = 

OBTypeDeclaration( 

TYPE.DECLARATIONS.reversed 
) ;) 


ALONE.ID.LIST 

: : = 0 (ALONE.ID.LIST$l. reversed = AldNil;) 

I (ID) 

{ALONE.ID.LIST$l.reversed={ID.t : : ALONE.ID_LIST$l. tail) ;) 

I (ALONE.ID.LIST ',' ID)( 

ALONE.ID.LIST$2.tail=(ID.t : : ALONE.ID„LIST$l. tail) ; 
ALONE_ID_LIST$l. reversed=ALONE.ID.LIST$2 .reversed; 
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} 

0_TIHING_INFO.t, 

'■ 

0_KEYVJORDS. t, 

0_INFORMAL_DESCS.t, 

ID_LIST::= (ID) 

0_FORMAL_DESCS.t 

{ID_LIST$l.reversGd=(ID.ts:ID_LIST$1.tail);) 

) ;} 

i (ID_LIST ',• ID){ 


ID_LIST$2.tail=(ID,t:;ID_LIST$1.tail); 

0_GENERICS_LIST 

ID_LIST$1,reversed=ID_LIST$2.reversed; 

} 

{){0_GENERICS_LIST.reversed = {0_GENERICS_LIST.tail);} 

1 (0_GENERICS_LIST 0_GENERICS) 

{0„GENERICS_LIST$2.tail=( 

0_TYPE_DECLS 

0_GENERICS.t:: 

::= {){0_TYPE_DECLS.t=(lypeNone);) 

0_GENERICS_LIST$1.tail); 

I {TY PE_DEC LARATIONS) 

0_GENERICS„LIST$1.reversed=0_GENERICS_LIST$2.reversed; 

{TYPE_DECLARATIONS.tail=TypeDeclNi1; 

} 

0_TYPE_DECLS. t='IVpe (TYPE_DECLARATIONS .reversed) ;) 


0_0PERAT0RS 

0_GENERICS 

::= (){0_0PERAT0RS.reversed=(0_0PERAT0RS.tail);) 

::= {GENERICKV7 TYPE_DECLARATIONS REQMTS_TRACE) 

{TYPE_DECLARATIONS.tail=TypeDeclNil; 

1 (0_OPERATORS T_OPER_SPEC) 

0_GENERICS.t = OpGenerics( 

{0_0PERAT0RS$2.tail={ 

TYPE_DECLARATIONS.reversed. 

T_OPER_SPEC.t:: 

REQMTS_TRACE.t 

0_0PERAT0RS$1.tai1); 

) ;} 

0_0PERAT0RS$1.reversed=0_0PERAT0RS$2.reversed; 


} 

0_INPUTS_LIST 

' 

::= 0{0_INPUTS_LIST.reversed = (0_INPUTS_LIST.tail);} 

T_OPER_SPEC 

1 (0_INPUTS_LIST 0_INPUTS) 

(OPERATORKW ID OPERATOR_SPEC) 

{0_INPUTS_LIST$ 2.t ai1=( 

{T_OPER_SPEC.t = TOpSpec( 

0_INPUTS.t;: 

ID.t, 

0_INPUTS_LIST$1.tail); 

OPERATOR_SPEC.t 


) ;) 

0_INPUTS_LIST$1.reversed=0_INPUTS_LIST$2.reversed; 

) 

OPERATOR_SPEC 


::= (SPECKW 

0_INPUTS 

0_GENERICS_LIST 

{INPUTKV7 TYPE_DECLARATIONS REQMTS_TRACE) 

0_INPUTS_LIST 

{TYPE_DECLARATIONS,tail=TypeDeclNil; 

0_OUTPUTS_LIST 

0_INPUTS.t = OpInputs( 

0_STATES_LIST 

TYPE_DECLARATIONS.reversed. 

0_EXCEPTIONS_LIST 

REQMTS_TRACE.t 

0_TIMING_INFO 

) ;) 

0_KEYVJORDS 

; 

0_INFORMAL_DESCS 


0_FORMAL_DESCS 

0„OUTPUTS_LIST 

ENDKW) 

j:= 0 {0_0UTPUTS_LIST.reversed = (0„OUTPUTS_LIST.tail) ; 

{0_GENERICS_LIST.t ai1=Generic s Lis t None; 


0_INPUTS_LIST.t ai1 = Input s List None; 

1 (0_OUTPUTS_LIST 0_0UTPUTS) 

0_OUTPUTS_LIST.tail=OutputsListNone; 

{0_0UTPUTS_LIST$2.tail=( 

0_STATES_LIST.tail=StatesListNone; 

0_0UTPUTS.t:: 

0_EXCEPTIONS_LIST.t ai1 = ExcListNone; 

0_0UTPUTS_LIST$1- tail); 

OPERATOR_SPEC.t = OperatorSpec{ 


0_GENERICS_LIST.reversed. 

0_0UTPUTS_LIST$1.reversed=0_0UTPUTS_LIST$2.reversed; 

0_INPUTS_LIST.reversed. 

) 

0_OUTPUTS_LIST.reversed. 

; 

0_STATES„LIST.reversed, 

0_EXCEPTIONS_LIST.reversed, 
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0_0UTPUTS 

0_STATES_LIST$1.tail); 

:;= (OUTPUTKVJ TYPE_DECLARATIONS REQMTS_TRACE} 


{TYPE_DECLARATIONS.tail^TypeDeclNi1; 

0„STATES„LIST$1. reversed=0_STATES_LIST$2 .reversed; 

0_OUTPUTS.t = OpOutputs( 

) 

TYPE_DECLARATIONS.reversed. 

; 

REQMTS_TRACE,t 


);) 

0_STATES 

; 

::= (STATESKW TYPE__DECLARATIONS INITIALKW EXPRESSION_L1ST REQMTS_TRACE) 

0_EXCEPTIONS_LIST 

(EXPRESSION_LIST. tail = InitialExpListNil ; 

TYPE_DECLARATIONS. tail=TypeDeclNil; 

::= 0{0_EXCEPTIONS_LIST.reversed = (0_EXCEPTIONS_LIST.tail);) 

0_STATES.t = OpStates( 

{0_EXCEPTI0NS_LIST$2.tail=( 

TYPE_DECLARATIONS.reversed, 

EXPRESSION_LIST.reversed. 

0_EXCEPTIONS-t:: 

REQMTS_TRACE.t 

0„EXCEPTIONS_LIST$1.tail} ; 

) ;) 

0_EXCEPTI0NS_LIST$1.reversed=0_EXCEPTI0NS_LIST$2.reversed; 


} 

AN_ARGUMENT 

; 

;:= (•{■ EXPRESSION„LIST ')‘) 

0_EXCEPTIONS 

{EXPRESSION_LIST.tail = InitialExpListNil; 

AN_ARGUMENT.t=AnArguinent (EXPRESSION_LIST.reversed) ; 

: ;= (EXCEPTIONSKVJ ALONE„ID„LIST REQMTS_TRACE) 

) 

{ALONE„ID_LIST.tail = AldNil; 

; 

0_EXCEPTI0NS,t = OpExceptions{ 


ALONE_ID_LIST.reversed, 

INITIAL_ARGS 

REQMTS_TRACE.t 

: := 0{INITIAL_ARGS.reversed=(INITIAL„ARGS.tail);) 

) ! i 

1 {INITIAL_ARGS AN_ARGUMENT) 

0_TIMING„INFO 

(INITIAL„ARGS$2 .tail=: 

{AN_ARGUMENT.t : : INITIAL_ARGS$1 .tail) ; 

: :={} 

INITIAL_ARGS$1.reversed=INITIAL_ARGS$2.reversed; 

{0_TIMING_INFO.t = (OpTiminglnfoNone);) 

) 

1 (MAXEXTIMEKW TIME REQMTS_TRACE) 


{0_TIMING„INFO.t = OpTimingInfo( 

EXPRESSION_LIST 

TIME.t, 

;:= (EXPRESSION) 

REQMTS„TRACE.t 

{EXPRESSION_LIST.reversed= 

};) 

(EXPRESSION,t::EXPRESSION_LIST.tai1);) 


1 (EXPRESSION„LIST ' , ' EXPRESSION) 

TIME:;= (INTEGER TIME_UNIT) 

{EXPRESSION_LIST$2.tail= » 

(TIME.t = TimedNTEGER.t, TIME_UNIT. t) ;} 

(EXPRESSION,t::EXPRESSION_LIST$l.tail); 


EXPRESSION_LIST$l.reversed=EXPRESSION_LIST$2.reversed; 

TIME_UNIT 

) 

J:= (MICRO) 


{TIME_UNIT.t = UnitMICROSECONDS 7 } 

EXPRESSION 

I (MS) 

::= (ID) 

{TIME_UNIT.t = UnitMS;} 

(EXPRESSION.t = Identifier{ID. t);) 

1 (SEC) 


{TIME_UNIT.t = UnitSEC;} 

1 (QUOTEKW yCominentLines QUOTEKVO 

! (MIN) 

( EXPRESSION.t = Textual_Description(yCommentLines-a); ) 

{TIME_UNIT.t = UnitMIN;) 


} (HOURS) 

t (TYPE„NAME ‘’ ID INITIAL_ARGS ) 

{TIME_UNIT.t = UnitHOURS;) 

(INITIAL_ARGS.tail = InitialArgsNil; 


EXPRESSION.t = TypeExpression{ 

0_STATES_LIST 

TYPE_NAME.t, 

::= {){0_STATES_LIST.reversed = (0„STATES_LIST.tail);) 

ID.t, 

1 {0_STATES_LIST 0_STATES) 

INITIAL„ARGS.reversed 
) ;) 

{0_STATES_LIST$2.tail=( 


0_STATES.t:: 

1 ('(‘EXPRESSION')') 
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{EXPRESSION$l. t=:ParenthesizedExp(EXPRESSION$2 . t) ;) 

/* BOOLEAN_EXPRESSION */ 

I (NOTKW EXPRESSION prec NOTKW) 

{EXPRESSION$l.t= 

NotExp(EXPRESSION$2.t);) 

j (FALSEKW) 

{EXPRESSION.t=False;) 

I (TRUEKVJ) 

(EXPRESSION.t =True;) 

1 (EXPRESSION •=* EXPRESSION) 

{EXPRESSION$l.t= 

EqualExp( 

EXPRESSI0N$2.t, 

EXPRESSION$3.t 

) ;) 

I (EXPRESSION ’<■ EXPRESSION prec *<■) 
{EXPRESSION$l.t= 

LessExp( 

EXPRESSION$2.t, 

EXPRESSION$3.t 

);} 

I (EXPRESSION ■>' EXPRESSION prec '>') 
{EXPRESSION$l.t= 

GreaterExp( 

EXPRESSION$2.t, 

EXPRESSI0N$3.t 

};) 

I (EXPRESSION GTEKV7 EXPRESSION prec GTEKV/) 
{EXPRESSI0N$1.t= 

GreatEqualExp( 

EXPRESSI0N$2.t, 

EXPRESSION$3.t 

) ;) 

I (EXPRESSION LTEKW EXPRESSION prec LTEKW) 

(EXPRESSION$l.t= 

LessEqualExp( 

EXPRESSION^2.t, 

EXPRESSION$3.t 

) ;} 

! (EXPRESSION NEQVKW EXPRESSION prec NEQVKW) 
(EXPRESSION$l.t= 

NotEquivExp( 

EXPRESSION$2.t, 

EXPRESSION$3.t 

) ;) 

( (EXPRESSION ANDKW EXPRESSION prec ANDKW) 

(EXPRESSION$l.t= 

AndExp( 

EXPRESSION$2.t, 

EXPRESSI0N$3.t 

) ;) 

I (EXPRESSION ORKV7 EXPRESSION prec ORKV/) 

{EXPRESSION$l.t= 


OrExp( 

EXPRESSI0N$2.t, 

EXPRESSION$3.t 

);) 

I (EXPRESSION XORKW EXPRESSION prec XORKV7) 
{EXPRESSION$l.t= 

XorExp{ 

EXPRESSION$2,t, 

EXPRESSION^3,t);} 

/* ARITHMETIC^EXPRESSION */ 

1 (INTEGER) 

(EXPRESSION.t=Integer(INTEGER.t);} 

I (INTEGER INTEGER) 

(EXPRESSION.t =Real( 

INTEGER$1.t, 

INTEGER$2.t 
);) 

I (EXPRESSION •+' EXPRESSION prec '+') 
{EXPRESSION$l.t= 

PlusExp{ 

EXPRESSI0N$2.t, 

EXPRESSION$3.t 
) ;) 

I (EXPRESSION EXPRESSION prec '-«) 

{EXPRESSION$l.t= 

MinusExp( 

EXPRESSION$2.t, 

EXPRESSION^3.t 
) ;) 

I (EXPRESSION EXPRESSION prec '*') 

{EXPRESSION$l.t= 

TimesExp( 

EXPRESSION$2.t, 

EXPRESSION$3.t 
) ;) 

I (EXPRESSION ■/' EXPRESSION prec '/') 
{EXPRESSION$l.t= 

DivExp{ 

EXPRESSION$2.t, 

EXPRESSION^3.t 
) ;) 

I (■-’ EXPRESSION prec *-') 

{EXPRESSION$l.t= 

NegativeExp( 

EXPRESSION$2.t 
) ;) 

{ {'+■ EXPRESSION prec '+') 

{EXPRESSION$l.t= 

PositiveExp( 

EXPRESSION$2.t 
) ;) 

I (ABSKW ■('EXPRESSION’) ' precABSKV/) 
{EXPRESSION$l.t= 
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AbsExp{ 


EXPRESSION$2.t 



TYPE_IMPL 

:;= 0 {$$.t = (lypelmplNull);) 

1 (EXPRESSION MODKV; EXPRESSION prec MODKW) 


{EXPRESSION$l.t= 

1 (IMPLKV7 ADAKW ID ENDKl*/) 

ModExp( 

{TYPE_IMPL. t =AdaTi^peImpl (ID. t) ;} 

EXPRESSION$2.t, 

1 (IMPLKVJ TYPE_NAME OPERATOR_IMPL_LIST ENDKW) 

EXPRESSION$3.t 

) ;} 

{OPERATOR_IMPL_LIST.t ai1=OpImplListNul1; 

TYPE_IMPL.t=TypeImpl( 

( (EXPRESSION REMKl^ EXPRESSION- prec REMKW) 

TYPE_NAME.t, 

{EXPRESSION$l.t= 

OPERATOR_IMPL_LIST.reversed 

RemExp{ 

) ;) 

EXPRESSION$2 


EXPRESSION$3.t 


) ;} 

OPERATOR_IMPL 

::= 0 {$$.t = (OpImplNull);) 

1 (EXPRESSION EXPKVJ EXPRESSION prec EXPKW) 


{EXPRESSION$l.t= 

1 (IMPLKW ADAKW ID ENDKW) 

ExponentExp( 

{OPERATOR_IMPL.t=AdaOpImpl(ID.t);) 

EXPRESSION$2.t. 

) (IMPLKW GRAPH DECLARATIONS CC ENDKW) 

EXPRESSION$3-t 

{OPERATOR_IMPL.t=0peratorlmpl( 

) ;) 

GRAPH.t, 

DECLARATIONS.t, 

/* string expression */ 

CC.t);) 

I (EXPRESSION EXPRESSION prec '&') 


{EXPRESSION$l.t= 

OPERATOR_IMPL_LIST 

ConcatExp( 

;:= 0{OPERATDR_IMPL_LIST.reversed=OPERATOR_IMPL_LIST.tail;) 

EXPRESSION$2.t. 


EXPRESSION$3-t 

1 (OPERATOR_IMPL_LIST T_OP_IMPL) 

);) 

{OPERATOR_IMPL_LIST$2,tail=( 

T_OP_IMPL.t:: 

OPERA'IOR_IMPL_LIST$1 .tail) ; 

0_KEYW0RDS 

OPERATOR_IMPL_LIST$l.reversed= 

: : = () {0_KEYW0RDS . t = (KeyV/ordsNone) ; ) 

OPERATOR_IMPL_LIST$2.reversed; 

) 

1 (KEYWKW ALONE_ID_LIST) 


{ALONE„ID_LIST.tail=AIdNil; 


0_KEYV;0RDS. t=KeyWords (ALONE_ID_LIST. reversed) ;} 

T_OP_IMPL 

' 

:;= (OPERATORKW ID OPERATOR_IMPL) 

{T_OP„IMPL.t=TOpImpl( 

0_INFORMAL_DESCS 

ID.t, 

::= 0{0_INFORMAL_DESCS.t={InformalDescsNul1);} 

OPERATOR_IMPL.t 
) ;) 

1 (DESCRIPKW LCURLY yCommentLines RCURLY) 

{ 0_INFORMAL_DESCS . t = InformalDescs(yCommentLines.a); ) 


GRAPH::= (GRAPHKW VERTEX_LIST EDGE_LIST) 

{EDGE_LIST.tail=EdgeListNil; 

0_FORMAL_DESCS 

VERTEX_LIST.tail=VertexListNul1; 

::= 0{0_FORMAL_DESCS.t =(FormalDescsNone);) 

GRAPH.t=Graph( 

VERTEX_LIST.reversed. 

I (AXIOMKW LCURLY yCommentLines RCURLY) 

EDGE_LIST.reversed 

{ 0_FORMAL_DESCS .t=:FormalDescs (yCommentLines .a) ; ) 

) ;} 

REQMTS_TRACE 

VERTEX_LIST 

::= 0 {REQMTS_TRAC E.t =(Reqmt sTraceNone);} 

: : = 0 {VERTEX_LIST. reversed=VERTEX__LIST. tail;} 

1 (VERTEX_LIST A_VERTEX) 

1 (REQBYKVJ ALONE_ID_LIST) 

{ 

VERTEX_LIST$2.tail=( 

{ALONE__ID_LIST. tail =AIdNi 1 ; 

REQMTS_TRACE.t=ReqmtsTrace{ALONE_ID_LIST.reversed);) 

A_VERTEX.t:: 
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VERTEX_LIST$1.tail 

); 

VERTEX_LIST$1.reversed=VERTEX_LIST$2.reversed; 

} 


A_VERTEX 

(VERTEXKW OPERATOR_ID OPTIONAL„TIME) 
{A_VERTEX.t=AVertex( 

OPERATOR„ID.t, 

OPTIONAL_TIME.t 

);} 


: := 0{EDGE_LIST.reversed=EDGE_LIST.tail;) 

I (EDGE_LIST AN_EDGE) 

{ 

EDGE_LIST$2.tail=( 

AN_EDGE.t:: 

EDGE_LIST$1.tail 

); 

EDGE_LIST$1. reversed=EDGE_LIST$2 .reversed; 

} 


OPTIONAL_TYPE„ID 

0 

{OPTIONAL_TYPE_ID.t = OptionaliypeldNull;) 

I (ID) 

{OPTIONAL_TYPE_ID.t = Optionaliypeld(ID.t);} 


AN_EDGE ::= (EDGEKW ID LATEMCY_TIME FROM_VERTEX_ID ARROWKW TO_VERTEX_ID) 
{AN_EDGE.t=AnEdge( 

ID.t, 

LATENCY_TIME.t, 

FROM_VERTEX_ID.t, 

TO_VERTEX_ID.t 
);) 


OPERATOR_ID 

(ID OPERATOR_ID_PAIRS) 

{OPERATOR_ID.t=OperatorId{OptionalTy’peIdNull, 

ID.t, 

OPERATOR_ID_PAIRS.t 

);) 

1 (OPTIONAL_TYPE_ID '.' ID OPERATOR_ID_PAIRS) 
{OPERATOR_ID.t=OperatorId{OPTIONAL_TYPE_ID.t, 

ID.t, 

OPERATOR_ID_PAIRS.t 

);} 


OPERATOR_ID_PAIRS 

;0{OPERATOR_ID_PAIRS.t=(OperatorIdPairsNull);) 

1 (’{• ALONE_ID_LIST '|‘ ALONE_ID_LIST ')’) 

{ALONE_ID_LIST$l.tail = AldNil; 

ALONE_ID_LIST$2.tail = AldNil; 

O PERATOR_ID_PAIRS.t =Opera torIdPairs( 
ALONE_ID_LIST$l.reversed, 
ALONE_ID_LIST$2.reversed 
};) 

OPTIONAL_TIME 

::= (}{OPTIONAL_TIME.t={OptionalTimeNull);) 

I (■:' TIME) 

{OPTIONAL_TIME.t =OptionalTime{ 

TIME.t 
) ;) 


LATENCY_TIME 

;:= (){$$.t = (LatencyTimeNull);} 

( (':■ TIME) 

{LATENCY_TIME.t = LatencyTime(TIME.t);} 


EDGE_LIST 


FROM_VERTEX_ID 

::=(ID OPERATOR_ID_PAIRS) 

{$$.t = FVertexId(OptionalTypeIdNull, 

ID.t, 

OPERATOR„ID_PAIRS.t 

) ;) 

I {OPTIONAL_TYPE_ID •.• ID OPERATOR_ID_PAIRS) 
{$$.t = FVertexId( 

OPTIONAL_TYPE_ID,t, 

ID.t, 

OPERATOR_ID_PAIRS.t 

) ;) 


TO_VERTEX_ID 

;!=(ID OPERATOR_ID_PAIRS) 

{$$.t = TVertexId(OptionalTypeIdNull, 

ID.t, 

OPERATDR_ID_PAIRS.t 

) ;) 

I {OPTIONAL_TYPE_ID '.' ID OPERATOR_ID_PAIRS) 
{$$.t = TVertexId( 

OPTIONAL_TYPE_ID.t, 

ID.t, 

OPERATOR_ID_PAIRS.t 

);) 


DECLARATIONS 

;:= (OPTIONAL^STREAMS OPTIONAL_TIMERS) 
{DECLARATIONS.t=Declarations( 
OPTIONAL_STREAMS.t, 
OPTIONAL_TIMERS,t 
) ;} 


OPTIONAL_STREAMS 

::= {){OPTIONAL„STREAMS.t=(StreamsNull);) 
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1 (DATSTRKW TYPE_DECLARATIONS) 

OPTIONAL_TRIGGER 

{TYPE_DECLARATIONS,tail=TypeDeclNil; 

::= 0{OPTIONAL_TRIGGER.t=(OptionalTriggerNull);) 

OPTIONAL_STREAMS.t = St reams{ 

TYPE_DECLARATIONS.reversed 

1 (TRIGGERBYKW 

) ;} 

TYPE_OF_TRIGGER 


ALONE_ID_LIST 

OPTIONAL_TIMERS 

OPTIONAL_IF_PREDICATE 

REQMTS_TRACE) 

:;= 0(OPTIONAL_TIMERS.t=(TimersNull);) 

{ALONE„ID_LIST.tail=AIdNi1; 

1 (TIMERKW ALONE_ID_LIST) 

OPTIONAL_TRIGGER.t xOptionaITriggerAIlOrSome{ 

TYPE_OF_TRIGGER.t, 

{ALONE_ID_LIST,tail=AIdNil; 

ALONE_ID_LIST.reversed, 

OPTIONAL_TIMERS.t =Timers{ 

OPTIONAL_IF_PREDICATE.t, 

ALONE_ID_LIST.reversed 
) ;} 

REQMTS_TRACE.t 
) ;) 

1 (TRIGGERKW IFKW 

CC::= {) {CC.t=CcNull;) 

EXPRESSION 

REQMTS_TRACE) 

1 (CONTROLKW CONSTRAINTS 0_INFORMAL_DESCS) 

{OPTIONAL_TRIGGER.t =Optiona11fExp( 

{CONSTRAINTS.tail = ConstraintsNull; 

EXPRESSION.t. 

CC.t=Cc( 

REQMTS_TRACE.t 

CONSTRAINTS.reversed. 

);} 

0_INFORMAL_DESCS,t 
) ;} 


TYPE_OF_TRIGGER 

CONSTRAINTS 

::= (ALLKW){TYPE_OF_TRIGGER.t=TriggerAll{);> 

1 (SOMEKW) {TYPE_OF_TRIGGER.t =TriggerSome();} 

;:= (} {CONSTRAINTS.reversed=CONSTRAINTS.tail;) 

; 

1 {CONSTRAINTS A_CONSTRAINT) 

{CONSTRAINTS$ 2.t ai1={ 

OPTIONAL_PERIOD 

A_CONSTRAINT.t:: 

::= {){OPTIONAL_PERIOD.t=(OptPeriodNull};) 

CONSTRAINTS$l.tail 
); 

1 {PERKV; TIME REQMTS_TRACE} 

CONSTRAINTS$l.reversed=CONSTRAINTS$2.reversed; 

{OPTIONAL_PERIOD.t=OptPeriod{ 

) 

TIME.t, 

' 

REQMTS_TRACE.t 

A_CONSTRAINT 

} / / 

::= (OPERATORKW 

OPERATORS D 

OPTIONAL_FINISH_V;iTHIN 

OPTIONAL_TRIGGER 

;{){OPTIONAL„FINISH_VUTHIN.tx{OptFinishWithinNull);) 

OPTIONAL_PERIOD 

0 PTIONAL_FINISH_WITHIN 

OPTIONAL_MCP 

1 (FINISHKW TIME REQMTS_TRACE) 

OPTIONAL_MRT 

{OPTIONAL_FINISH_WITHIN.t=OptFinishvathin( 

OUTPUT_GUARDS 

TIME.t, 

EXCEPTION_OPS 

REQMTS_TRACE.t 

TIMER„OPERATIONS) 

);} 

{TIMER_OPERATIONS.tail=TimerOperationsNil; 

; 

OUTPUT_GUARDS.tail=OutputGuardsNi1; 

A_CONSTRAINT.t=AConstraint(OPERATOR_ID-t, 

OPTIONAL_MCP 

OPTIONAL_TRIGGER.t, 

::= 0{OPTIONAL_MCP.t={OptMcpNull);) 

OPTIONAL_PERIOD.t, 

OPTIONAL_FINISH_VJITHIN. t, 

1 {MCPKW TIME REQMTS_TRACE) 

OPTIONAL_MCP.t, 

{OPTIONAL_MCP.t =OptMcp( 

OPTIONAL_MRT.t, 

TIME.t, 

OUTPUT_GUARDS.reversed. 

REQMTS_TRACE.t 

EXCEPTION_OPS,t, 

) ;> 

TIMER_OPERATIONS.reversed 


) 

;} 

OPTIONAL_HRT 


::= 0{OPTIONAL_MRT.t={OptMrtNull);) 
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I (MRTKV? TIME REQMTS_TRACE) 
{OPTIONAL_MRT.t=OptMrt{ 
TIME.t, 

REQMTS_TRACE-t 

) ;) 


OUTPUT_GUARDS 

!;= {){OUTPUT_GUARDS.reversed=OUTPUT_GUARDS.tail;) 

I {OUTPUT_GUARDS A_GUARD) 

{OUTPUT_GUARDS$2.tail=( 

A_GUARD.t:; 

OUTPUT_GUARDS$l.tail 

} ; 

OUTPUT_GUARDS$l,reversed=OUTPUT_GUARDS$2.reversed; 

) 

A_GUARD::= (OUTPUTKW ALONE_ID_LIST IFKW C_EXPRESSION REQMTS_TRACE) 
{ALONE_ID_LIST.tail = AldNil; 

ATGUARD.t=AGuard{ 

ALONE_ID_LIST.reversed, 

C_EXPRESSION.t, 

REQMTS_TRACE. t 

} ;} 


EXCEPTION_OPS 

::= (){EXCEPTION_OPS.t=(ExceptionOpsNull);} 

I (EXCEPTION_OPTIONS) 

{EXCEPTION_OPTIONS.tail=ExceptionOptionsNi1; 
EXCEPTION_OPS.t =Exception( 

EXCEPTION_OPTIONS.reversed 

) ;} 


EXCEPTION_OPTIONS 
::= (AN_EXCEPTION) 

{EXCEPTION_OPTIONS.reversed=( 

AN_EXCEPTION.t:: 

EXCEPTION_OPTIONS.tail 

);) 

I {EXCEPTION_OPTIONS AN_EXCEPTION} 

{EXCEPTION_OPTIONS$2.tail=( 

AN_EXCEPTION.t:: 

EXCEPTION_OPTIONS$1.tail 

) ; 

EXCEPTION_OPTIONS$1.reversed=EXCEPTION_OPTIONS$2.reversed; 

) 


AN_EXCEPTION 

::= (EXCEPTIONKW ID OPTIONAL_IF_PREDICATE REQMTS_TRACE) 
{AN_EXCEPTION.t =AnException( 

ID.t, 

OPTIONAL_IF_PREDICATE.t, 

REQMTS_TRACE.t 

) ;) 


TIMER_0PERATIONS 

:;= 0{TIMER_OPERATIONS.reversed=TIMER_OPERATIONS.tail;) 
i (TIMER_OPERATIONS A_TIMER„OPERATION) 

{TIMER_OPERATIONS$2.tail=( 

A_TIMER_OPERATION.t:: 

TIMER_OPERATIONS$l.tail 

) ; 

TIMER„OPERATIONS$l.reversed=TIMER_OPERATIONS$2.reversed; 

) 


A_TIMER_OPERATION 

::= (RESETKV; ID OPTIONAL_IF_PREDICATE REQMTS_TRACE) 
{A_TIMER_OPERATION.t=ATimerReset{ 

ID.t, 

OPTIONAL_IF_PREDICATE.t, 
REQMTS_TRACE.t 
) ;) 

I (STOPKW ID OPTIONAL_IF_PREDICATE REQMTS_TRACE) 

{A_TIMER_OPERATION.t =ATimerStop( 

ID.t, 

OPTIONAL_IF_PREDICATE.t, 
REQMTS_TRACE.t 
) ;> 

I (STARTKV; ID OPTIONAL_IF_PREDICATE REQMTS_TRACE} 
{A_TIMER_OPERATION.t=ATimerStart{ 

ID.t, 

OPTIONAL_IF_PREDICATE.t, 
REQMTS_TRACE.t 
) ;) 


OPTIONAL_IF_PREDICATE 

::= 0{OPTIONAL_IF_PREDICATE.t=(OptIfPredicateNull);} 

I (IFKV/ C_EXPRESSION) 

{OPTIONAL_IF_PREDICATE.t=OptIfPredicate( 
C_EXPRESSION.t 
);) 


C_AN_ARGUMENT 

::= {•(■ C_EXPRESSION_LIST '}') 

{C_EXPRESSION_LIST.tail = ClnitialExpListNil; 
C_AN_ARGUMENT. t=CAnArgument (C_EXPRESSION_LIST. reversed) ; 

) 


C_INITIAL_ARGS 

:{){C_INITIAL_ARGS.reversed={C_INITIAL_ARGS.tail);) 

I (C_INITIAL_ARGS C_AN^RGUMENT) 

{C_INITIAL_ARGS$2.tail= 

(C_AN_ARGUMENT.t::C_INITIAL_ARGS$1.tail); 
C_INITIAL„ARGS$1.reversed=C_INITIAL_ARGS$2.reversed; 

) 


C_EXPRESSION_LIST 

(C_EXPRESSION) 

{C_EXPRESSION_LIST.reversed= 
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(C_EXPRESSION.tj:C_EXPRESSION„LIST.tail);) 

{C_EXPRESSION_LIST C_EXPRESSION) 

{C_EXPRESSION_LIST$2.tail= 

(C_EXPRESSION.t::C_EXPRESSION_LIST$l.tail); 
C_EXPRESSION_LIST$l.reversed=C_EXPRESSION_LIST$2.reversed; 

) 


C_EXPRESSION 
::= (ID) 

(C_EXPRESSION.t=CIdentifier{ID.t);) 

I { QUOTEKVJ yCommentLines QUOTEKV^) 

{ C_EXPRESSION.t= CTextual„Description(yCommentLines.a); } 
I (TYPE_NAME ‘* ID C_INITIAL_ARGS ) 

{C_INITIAL_ARGS.tail = CInitialArgsNil; 

C_EXPRESSION.t = CTypeExpression( 

TYPE_NAME.t, 

ID.t, 

C_INITIAL_ARGS.reversed 

) ;) 

I (•(•C_EXPRESSION')’) 

{C_EXPRESSION$l.t=CParenthesizedExp(C_EXPRESSI0N$2,t);} 

1 (TIME) 

{C_EXPRESSION$l.t=CTimeExpression(TIME.t);) 

/* BOOLEAN^EXPRESSION */ 

I (NOTKW C_EXPRESSION prec NOTKVJ) 

(C„EXPRESSION$l.t= 

CNotExp(C_EXPRESSI0N$2.t);) 

I (FALSEKVJ) 

{C_EXPRESSION.t = CFalse;} 

I (TRUEKW) 

{C_EXPRESSION.t=CTrue;) 

j (C_EXPRESSION ■=■ C_EXPRESSION prec '=') 

{C_EXPRESSION$l.t= 

CEqualExp( 

C_EXPRESSION$2.t, 

C_EXPRESSION$3.t 

);) 

I (C_EXPRESSION '<• C_EXPRESSION prec •<*) 

{C_EXPRESSION$l.t= 

CLessExp( 

C_EXPRESSION$2.t, 

C_EXPRESSION$3.t 

);) 

I {C_EXPRESSION •>• C_EXPRESSION prec '>•) 

(C_EXPRESSION$l.t= 

CGreaterExp( 

C_EXPRESSION$2.t, 

C_EXPRESSION$3.t 

) ;) 

I (C_EXPRESSION GTEKW C_EXPRESSION prec GTEKW) 
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{C_EXPRESSION$l.t = 

CGreatEqualExp( 

C_EXPRESSION$2.t, 

C_EXPRESSION$3-t 
) ;) 

I (C_EXPRESSION LTEKW C^EXPRESSION prec LTEKV/} 

(C_EXPRESSION$l.t = 

CLessEqualExp( 

C_EXPRESSI0N$2.t, 

C_EXPRESSI0N$3.t 
);) 

I (C_EXPRESSION NEQVKW C„EXPRESSION prec NEQVKW) 
{C_EXPRESSI0N$1.t= 

CNotEquivExp( 

C_EXPRESSI0N$2.t, 

C_EXPRESSI0N$3.t 
);) 

1 (C_EXPRESSION ANDKV/ C_EXPRESSION prec ANDKV?) 
{C_EXPRESSION$l.t = 

CAndExp( 

C_EXPRESSI0N$2.t, 

C_EXPRESSI0N$3.t 
};) 

j (C_EXPRESSION ORKVJ C_EXPRESSI0N prec ORKW) 
{C_EXPRESSI0N$1.t= 

COrExp( 

C_EXPRESSION$2.t, 

C_EXPRESSION$3.t 
) ;) 

1 (C_EXPRESSION XORKW C_EXPRESSION prec X0RKV7} 
{C_EXPRESSION$l.t= 

CXorExp( 

C„EXPRESSI0N$2.t, 

C_EXPRESSION$3.t);) 

/* ARITHMETIC_EXPRESSION */ 

I (INTEGER) 

{C_EXPRESSION.t =CInteger{INTEGER,t);) 

I (INTEGER •,* INTEGER) 

{C„EXPRESSION.t =CReal( 

INTEGER$1.t, 

INTEGER$2.t 
) ;) 


I (C_EXPRESSION '+• C_EXPRESSION prec '+') 
{C_EXPRESSI0N$1.t= 

CPlusExp( 

C_EXPRESSI0N$2.t, 

C_EXPRESSION$3.t 
) ;) 

I (C_EXPRESSION C_EXPRESSION prec •-') 

{C_EXPRESSION$l.t= 

CMinusExp( 

C_EXPRESSION$2.t. 
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C_EXPRESSION$3.t );} 

);} 

I (C_EXPRESSION **' C_EXPRESSION prec '*') 

{C_EXPRESSION$1.t = 

CTimesExp( 

C_EXPRESSI0N$2.t, 

C_EXPRESSION$3.t 

);} 

I {C_EXPRESSION ’/' C_EXPRESSION prec '/') 

{C_EXPRESSION$l.t= 

CDivExp{ 

C_EXPRESSION$2.t, 

C_EXPRESSION$3.t 

) ;> 

I (•+' C_EXPRESSION prec '+') 

{C_EXPRESSI0N$1.t= 

CPositiveExp( 

C_EXPRESSION$2.t 

);) 

I ('-' C_EXPRESSION prec '-') 

{C_EXPRESSI0N$1.t= 

CNegativeExp( 

C_EXPRESSION$2.t 

) ;) 

I {ABSKW •('C_EXPRESSION')' prec ABSKW) 

{C_EXPRESSION$l.t= 

CAbsExp( 

C_EXPRESSI0N$2.t 

);) 

I (C_EXPRESSION MODKW C_EXPRESSION prec MODKW) 

{C_EXPRESSION$l.t= 

CModExp( 

C_EXPRESSI0N$2.t, 

C_EXPRESSI0N$3,t 

) ;} 

I {C_EXPRESSION REMKW C_EXPRESSION prec REMKW) 

{C_EXPRESSION$l.t= 

CRemExp{ 

C_EXPRESSION$2.t, 

C_EXPRESSION$3.t 

) ;) 

! {C_EXPRESSION EXPKW C.EXPRESSION prec EXPKW) 

{C_EXPRESSION$l.t= 

CExponentExp( 

C_EXPRESSI0N$2.t, 

C_EXPRESSION$3.t 

) ;} 

/* STRING EXPRESSION */ 

I (C_EXPRESSION C_EXPRESSION prec '&') 

{C_EXPRESSION$l* t = 

CConcatExp{ 

C_EXPRESSI0N$2.t, 

C_EXPRESSION$3-t 
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